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Introducción 


Este libro es para aquellas personas que qúieran construir páginas Web mediante 
Microsoft Visual Basic Scripting Edition o que simplemente quieran aprender 
VBScript para programar de forma más general en Microsoft Windows. (Visual 
Basic Scripting Edition es ciertamente un tanto difícil de pronunciar; de ahora en 
adelante, se dirá VBScript, que es la forma en la que casi todo el mundo lo hace.) 
Sin embargo, este libro no es para expertos, no se asume que ya se ha programado 
antes. Aún más, tampoco se espera que el lector tenga experiencia con páginas 
Web interactivas. 

Sin embargo, sí se espera que el lector sepa algo acerca de Internet, Se asumirá 
que se ha estado algún tiempo navegando por la Web y que sé sabe que un Provee- 
dor de servicios de Internet (ISP) proporciona el software de conexión a la Web 
por medio de la línea telefónica, y que un visualizador Web, tal como Internet 
Explorer, es una aplicación que permite leer documentos de forma interactiva. 

También se asume que se tiene cierto conocimiento sobre la creación de pági- 
nas Web. Por otro lado, no importa si no se ha trabajado con código HTML direc- 
tamente (Lenguaje de marcas hipertextual) y se ha usado en su lugar herramientas 
como Microsoft FrontPage para construir las páginas Web. Los Capítulos 2 y 3 
explican cómo crear páginas Web así como la forma de utilizar HTML para hacer 
lo que FrontPage hace automáticamente. 

No es que las herramientas como FrontPage (o inluso su hermana, Microsoft 
FrontPage Express) no sean buenas. Es sólo que una herramienta potente como 
FrontPage no puede hacerlo todo para un programador de VBScript. Como pronto 
se verá, quien trabaja con VBScript a menudo necesita trabajar directamente con 
las etiquetas HTML subyacentes. Por ejemplo, ésa es la única forma de crear pági- 
nas Web personalizadas con VBScript. 

No se puede ir a una tienda y comprar una copia de VBScript; no es un produc- 
to que se pueda envolver como Microsoft Office 97 o Visual Basic. En el tiempo 
en el que esto se escribe, VBScript habitualmente se ejecuta dentro de Internet 


xv 
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Explorer y, por tanto, se incluye en cualquier versión de Internet Explorer poste- 
rior a la 3. El CD que se incluye con este libro contiene Internet Explorer 4.01 y 
por tanto una versión actualizada de VBScript. No es fundamental comprar herra- 
mientas como FrontPage porque todo lo que se necesita para trabajar con VB- 
Script para Internet Explorer está en el CD adjunto. 


Organización de este libro 


Este libro se divide en tres partes: La Primera parte: Fundamentos, la Segunda 
parte: Más allá de los fundamentos, y la Tercera parte: Temas avanzados. 

El Capítulo 1, Breve historia, es una introducción a VBScript. 

El Capítulo 2, HTML y VBScript, ofrece una rápida visión sobre lo que 
hace falta saber acerca de las etiquetas HTML con el fin de poder programar con 
VBScript. Se muestra cómo escribir script básicos y cómo trabajar con controles 
ActiveX. 

Los Capítulos 3 al 6, Fundamentos de la programación con VBScript, Control 
del flujo del programa, Funciones y arrays y Cómo escribir funciones y sub- 
procedimientos propios, analizan los detalles del lenguaje VBScript. No sólo 
se explican los mandatos sino que también se enseña cómo programar. Y no se ha 
de estar equivocado, aprender VBScript es una excelente forma de empezar a pro- 
gramar. 

No hay auténticos programas que se escriban sin algunos errores, por lo que el 
Capítulo 7, Pruebas, depuración y detección de errores, explica las bases de la 
depuración de los script. Se presenta Microsoft Script Debugger que, por primera 
vez, ofrece a los programadores de VBScript herramientas de depuración como las 
proporcionadas por la versión completa de Visual Basic. 

Los Capitulos 8 y 9, Modelo de objetos de Internet Explorer e Introducción a 
HTML dinámico, presentan el excitante nuevo mundo de HTML dinámico, inclu- 
yendo la última tecnología (con una antigüedad de unos pocos meses en el tiempo 
de escribir esto) denominada Scriptlets. Estos dos capítulos deberían servir de só- 
lida base para trabajar con libros dedicados a HTML dinámico. Se verá desde la 
validación de entradas de usuario hasta el control del funcionamiento interno de 
Internet Explorer. e 


CD ADJUNTO 


El CD adjunto incluye los siguientes elementos: 


m Una versión interactiva del libro. 
m Archivos de ejemplo del libro. 
m Microsoft Internet Explorer versión 4.01. 


m Microsoft ActiveX Control Pad. 


SOPORTE 
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m Microsoft Script Debugger. 

m Documentación de VBScript. 

m Microsoft Visual Basic Control Creation Edition. 
m Microsoft Internet Client SDK. 


Las instrucciones para instalar estos componentes se incluyen en el archivo 
Leame.txt del directorio raiz del CD adjunto. 


Se han hecho todos los esfuerzos posibles para asegurar la corrección del libro y 
del contenido del CD adjunto. Microsoft Press proporciona correcciones a los li- 
bros a través de la World Wide Web en 


http://mspress.microsoft.com/mspress/support/ 


Si desea exponer comentarios, preguntas o ideas relacionadas con este libro o 
con el CD adjunto, por favor envíelos a McGraw-Hill por correo electrónico a: 


profesional O mcgraw-hill.es 
O por correo postal a: 


Att: Editor de la serie Aprenda ya 
McGraw-Hill/Interamericana de España, S.A.U. 
c/Basauri, 17. Edificio Valrealty 

28023 Aravaca, Madrid 

España 


Por favor, observe que no se ofrece soporte al producto a través de las direc- 
ciones anteriores. Para información de soporte con relación a Internet Explorer, 
puede conectarse a Microsoft Technical Support a través de la Web en: 

http://www.microsoft.com/support/ 


También puede contactar con su suministrador Microsoft para información de 
soporte. Microsoft también proporciona información sobre Internet Explorer en 


http://www.microsoft.com/ie 


Capítulo 


Breve historia 


Si está leyendo este libro, probablemente está trabajando en: 


m Su propia página Web. 
m Una página del nodo Web externo de su compañía. 
m Una página en una intranet. 


m Una página que está realizando a terceros. 


No importa en cuál de estas situaciones se encuentre, VBScript es la forma 
más fácil de activar páginas Web. Pero, ¿qué significa realmente activar? Para 
contestar a esta pregunta, primero es necesario contar una breve historia sobre lo 
que solían ser las cosas. 


EL CAMINO EN EL QUE ESTÁBAMOS 


La World Wide Web fue desarrollada originalmente por los científicos para su 
propio uso (el gran público no estaba invitado). No quiero ir más allá hasta decir 
que la Web era aburrida en esos días, y evidentemente no podía utilizarse para el 
comercio o cualquier cosa divertida. Las páginas Web se descargaban desde com- 
putadoras muy grandes y muy caras (servidores) a las computadoras personales de 
escritorio de los cientificos (máquinas cliente). 

Desde los primeros años de su existencia, la World Wide Web fue simplemen- 
te una forma de utilizar hipertexto, como se muestra en la Figura 1.1. 
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Servidor Web 


Archivos con hipertexto 


O PO UU Bay 


Navegador 
que puede 
solicitar y 
mostrar una 
página Web 
con hipertexto 


Máquinas cliente conectadas a la Web 


Figura 1.1. Cómo funciona el hipertexto en la World Wide Web. 


NOTA: El hipertexto hace referencia al tipo de sistema de apuntar y pulsar utiliza- 
do en los archivos de ayuda de Microsoft Windows. Cuando se pulsa en un hiperen- 
lace, se muestra la página de ayuda correcta. Como ya conoce de navegar por la red, 
está ¡pera lo mismo: se pulsa un hiperenlace y el explorador le lleva a una nueva pá- 
gina Web. 


En aquellos días, tampoco había imágenes (todo era texto junto con hiperenla- 
ces). También había otras diferencias significativas. Las primeras páginas Web no 
eran realmente interactivas como las páginas Web de solicitud de pedidos que son 
tan comunes hoy en día. También resultaba imposible realizar cálculos, como los 
realizados por las calculadoras de hipotecas que muchas instituciones financieras 
han puesto en sus páginas Web. Ningún esfuerzo de imaginación podría haber 
considerado como «viva» la primera Web. Las Figuras 1.2 y 1.3 muestran una 
página Web sencilla y otra más compleja. Obsérvese cómo la Figura 1.3 tiene tam- 
bién una apariencia más sofisticada que la de la Figura 1,2. 

Originalmente, una página Web se creaba escribiendo instrucciones en un len- 
guaje especial llamado HTML (Hypertext Markup Language, lenguaje de genera- 
ción de documentos hipertexto). Las instrucciones simplemente indicaban al ex- 
plorador dónde mostrar el texto y los hiperenlaces en la página. Con el paso del 
tiempo, HTML se extendió para permitir que los exploradores hicieran más. Por 
ejemplo, finalmente podían verse imágenes. También, se desarrolló un método para 
tener al servidor haciendo cálculos y otro tipo de procesamiento de datos. Este 
método fue llamado Automatización CGI (CGI significa interfaz de pasarela co- 
mún, y los scripts CGI son tipos de programas especiales que residen en el servi- 
dor, como se puede ver en la Figura 1.4). 
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¿Cuál es el acontecimiento? 
(O ompivaños 
O tetversario 
O "eoria de una antarmedas. 
¿Cuando y dónde se deben enviar las flores? 
Focha an pr 
ctuasa [asa 1 a E 


cti orcas. [200151 nd 
confirmar | limpiar | Iniciar | 


Figura 1.2. Una página Web sencilla de solicitud de pedidos. 


Los scripts CGI permitían que todos los exploradores Web enviaran informa- 
ción al servidor para su consiguiente procesamiento, El resultado generado por el 
servidor era enviado de vuelta a la máquina cliente. Esto a menudo era en forma 
de nuevas páginas Web que se generaban «sobre la marcha». Pulsando en un hiper- 
enlace, por ejemplo, se podría causar la creación y presentación de una nueva pá- 
gina Web. La interactividad en la Web fue finalmente posible. 


cantidad de 


Cuota máxima NN 
interés anual DES 


Misaro de años 


Minero total de cù 


Cantidad de la cu 
sensual 


Figura 1.3. Calculadora de hipotecas. 
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Servidor Web 


Script CGI 1 
Script CGI 2 
Script CGI 3 


1. El usuario introduce información y luego 
pulsa el botón Confirmar. 

2. La información se envía al servidor. 

3. El servidor procesa la información utilizando 
el script CGI adecuado. 

4. El servidor devuelve los resultados a la 

máquina cliente. 


[aves 7] 


Máquina Cliente 


Figura 1.4. Automatización CGI funcionando. 


Sin embargo, existen inconvenientes en la utilización de scripts CGI para pro- 
porcionar páginas Web interactivas. El más importante es que los CGI no son fáci- 
les de configurar. Originalmente, los CGI requerían mucha ayuda técnica para ins- 
talar los programas que eran necesarios en el servidor. Incluso aunque esto se ha 
simplificado, la instalación de CGI todavía requiere mucho tiempo y trabajo. 

Otro inconveniente es que los scripts CGI se almacenan en el servidor. Existen 
dos problemas asociados a esto. Primero, el servidor donde residen las páginas 
Web tiene que hacer mucho trabajo. (¡Imagine la cantidad de gente que estaba 
intentando acceder a las páginas con formularios interactivos de impuestos el 14 
de Abril!) Desde que las computadoras son cada vez más potentes, parece natural 
reducir el tiempo de espera trasladando la mayor cantidad de trabajo posible desde 
el servidor a la máquina cliente. Después de todo, aunque una computadora cliente 
no podría ser tan potente como la utilizada como servidor Web, probablemente le 
puede dedicar el 100 por 100 de su atención. Un servidor Web podría estar inten- 
tando realizar cientos, si no miles, de tareas simultáneamente. 

Segundo, los scripts CGI pueden ser un riesgo para la seguridad. Por esta ra- 
zón, muchos administradores Web prohiben cualquiera que no sea suyo, o de al- 
guien al que hayan autorizado para situar scripts CGI en el servidor. 

La utilización de scripts CGI en páginas Web interactivas lleva al examen de 
las siguientes cuestiones: 


m ¿Cómo se puede transferir trabajo a la máquina cliente? 


m ¿Cómo se pueden eliminar los riesgos de seguridad asociados a los scripts 
CGI? 
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Comencemos por la primera cuestión. Inicialmente, la solución al traslado de 
trabajo a la máquina cliente fue la ampliación del explorador. Por ejemplo, si un 
explorador tenía la habilidad de reproducir archivos de sonido, entonces cuando 
alguien descargaba una página Web que contenía sonidos, la parte del explorador 
que conocía cómo reproducir sonidos tomaba el control y lo reproducía para el 
usuario. 

Este tipo de solución todavía es útil en situaciones especializadas, pero ima- 
gine que se intenta crear una página Web que realiza un pedido. (La Figura 1.2 
muestra dicha página.) Se podría utilizar automatización CGI, pero esto es lo que 
sucedería: 


1. Se envía la información del pedido al servidor pulsando el botón Enviar. 


2. El script CGI toma el control, (El servidor podría estar ocupado, por eso 
hay que estar preparado a esperar.) 


3. El script CGI halla el coste del pedido. 


4. Se crea una nueva página Web que contiene la misma información de pedi- 
do enviada, más el coste total de la compra. 


5. El script CGI envía la nueva página Web al cliente. 


Mucho trabajo para realizar la suma de unos pocos números (que una compu- 
tadora cliente puede hacer instantáneamente), ¿no? Si no está convencido, siga 
leyendo. Suponga que se ha olvidado rellenar una de las líneas. Habría tenido que 
esperar a que el servidor realizara el viaje de ida y vuelta sólo para darse cuenta de 
que éste había enviado un mensaje diciendo «Lo siento, inténtelo de nuevo (por 
favor, rellene el código postal)». ¿No sería mejor comprobar en la máquina cliente 
que todas las lineas estuvieran rellenas correctamente antes de perder el tiempo 
enviando la información por la red? 

En este punto, podría estar preguntándose por qué no se puede hacer esto con 
alguna clase de extensión de un explorador como la que reproducía archivos de 
sonido. Tenga en cuenta, sin embargo, que una extensión tendría que funcionar 
para todos y cada uno de los formularios de pedidos con los que pudiera encon- 
trarse. Puesto que no todos los formularios de pedidos son iguales, esta situación 
no es parecida a la de reproducción de sonidos, en la que sólo existen unos pocos 
formatos de archivos de audio. Pero acierta al pensar que la respuesta está situada 
en alguna parte del explorador. 


EL CAMINO EN EL QUE ESTAMOS AHORA 


La solución evidente es tener al explorador realizando cálculos basados en la in- 
formación que ya existe en la página Web. (Recuerde, tanto el explorador como la 
página Web están en la máquina cliente.) Esto se puede hacer embebiendo en la 
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página Web un script que indique al nagevador cómo hacer el trabajo necesario. 
Por ejemplo, el explorador podría realizar la suma de un pedido, avisar al usuario 
de que han sido solicitadas 50 docenas de rosas y preguntarle si esto fue un error. 
La idea es enviar el pedido al servidor de procesamiento de pedidos sólo después 
de haber realizado una comprobación de lo que haya introducido el usuario. Para 
hacer esto posible, el explorador necesita una forma de interpretar las directivas 
dadas por el script. 

Construyendo un intérprete VBScript en la versión 4 del Internet Explorer, 
Microsoft ha conseguido precisamente eso, Las directivas del script se añaden a 
las instrucciones HTML de la página. De la misma forma que cualquier explora- 
dor puede interpretar HTML para presentar una página correctamente, un explora- 
dor como Internet Explorer también puede interpretar scripts. Los scripts pueden 
contener órdenes como suma esto, multiplica esto, ¿esto es un número?, etc. Ca- 
pacitando al explorador para que entienda directivas sencillas se evita la necesidad 
de tener scripts CGI de propósito especial para todas las diferentes tareas que es 
necesario realizar. 

La primera forma de tener a la máquina cliente haciendo parte del trabajo pro- 
cede de principios de 1996, con la introducción del lenguaje de programación Java. 
Compañías como Microsoft añadieron rápidamente intérpretes Java a sus explora- 
dores. Estos intérpretes podian entender el código Java creado. 


NOTA: A diferencia de Java, VBScript está embebido de forma legible en las pági- 
nas Web. 


Afrontémoslo, Java puede hacer todo lo que VBScript puede hacer y bastante 
más, Entonces, ¿por qué utilizar VBScript en vez de Java? Porque la utilización de 
Java en tareas sencillas es como matar moscas a cañonazos. 

Las razones son: 


m Java no es un lenguaje fácil de utilizar. Incluso para poder mostrar un pe- 
queño mensaje como Hola Mundo en la pantalla se necesitan 10 o 20 líneas 
de código (en contraste con la única línea que necesita VBScript). La utili- 
zación de Java para tareas sencillas, como la solicitud de pedidos o el cálcu- 
lo de pagos de préstamos, sería un trabajo excesivo. 


m Para utilizar Java de una forma efectiva, es necesario familiarizarse con con- 
ceptos de lenguajes de programación muy potentes como la programación 
orientada a objetos. 


Creemos que la mayoría de los programadores estarían de acuerdo en que Java 
es difícil de aprender. Los tratados sobre Java más fáciles de entender comienzan 
asumiendo que se es un programador con experiencia, y luego dedican cientos de 
páginas a enseñar los pormenores del lenguaje. Muchos colegios están dedicando 
ahora una parte importante del primer año de su programa de informática a ense- 
ñar Java. 
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NOTA: Como observación personal, Java me gusta mucho; incluso ayudé a escribir un * 


libro sobre él. Pero dicho libro, que abarca sólo las principales características de Java, co- 
menzó con alrededor de 700 páginas en su primera versión y ahora tiene más de 1000 en 
su tercera edición. Para mi, incluso aunque lo conozco muy bien, Java es demasiado bueno 
para la mayor parte de las cosas que es necesario hacer en las páginas Web. 


VISUAL BASIC Y EL ENFOQUE DE PROGRAMACIÓN BASADO 
EN COMPONENTES 


Visual Basic utiliza 
el término control 
en vez del término 
componente. 


Microsoft Visual Basic es actualmente, por muchas razones, el lenguaje de pro- 
gramación más popular del mundo (se estima que más de tres millones de personas 
lo utilizan). Hay muchas razones para el éxito de Visual Basic, pero la más impor- 
tante es que Visual Basic cambió la forma de programar. Visual Basic hizo posible 
el enfoque de programación basado en componentes. 

La idea que está detrás del enfoque de programación basado en componentes 
es sencilla (no es más que el equivalente de programación de «¿por qué preocuparse 
en reinventar la rueda?»). Por ejemplo, ¿cuántas aplicaciones aceptan un nombre y 
una dirección en un pequeño formulario como el presentado en la Figura 1.5? 

En este ejemplo, se quiere que el usuario introduzca exactamente cinco dígitos 
en el campo Código Postal. ¿Puede imaginar los cientos de personas que han desa- 
rrollado el mismo formulario para aceptar un nombre y una dirección?, o ¿cuánta 
gente ha escrito un programa para comprobar que el usuario introduce cinco dígi- 
tos en el campo Código Postal? ¿No sería maravilloso que alguien pudiera progra- 
mar todo esto de una vez por todas y que luego se pudiera reutilizar sin esfuerzo? 

Esa es la magia de Visual Basic (es fácil reutilizar un componente que otra 
persona ha desarrollado). El éxito de Visual Basic se basa en la gran cantidad de 
ideas que se le ocurre a la gente para componentes reutilizables que pueden ser 
usados de forma fácil y eficiente. De hecho, mucha gente se ha hecho rica escri- 
biendo componentes reutilizables (después de todo, es necesario venderlos única- 
mente a una pequeña fracción de los millones de programadores de Visual a 
que existen allí fuera). 


Figura 1.5. Formulario que acepta un nombre y una dirección. 


Y 
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Las versiones actuales de estos componentes reutilizables se llaman controles 
ActiveX. 


¿CÓMO SE RELACIONA VBSCRIPT CON VISUAL BASIC? 


VBScript es esencialmente un subconjunto del lenguaje de programación Visual 
Basic. El resultado de este proceso de adelgazamiento es un lenguaje muy pequeño 
y fácil de utilizar. El Apéndice A muestra las diferencias entre VBScript y Visual 
Basic. 


NOTA: Puesto que VBScript es un subconjunto de Visual Basic, corregir código VBScript 
será casi siempre como corregir código Visual Basic, pero no a la inversa. VBScript tiene 
algunas características Únicas (por ejemplo, aquellas que permiten trabajar con texto más 
fácilmente) que todavía no son parte de Visual Basic. 


Aunque es cierto que Microsoft simplificó Visual Basic hasta lo esencial para 
crear VBScript, lo cierto es que la esencia está en el primero. Como se leerá posterior- 
mente, VBScript se puede utilizar para realizar cualquier cálculo que pudiera nece- 
sitarse en una página Web. Se puede analizar lo que introducen los usuarios, sumar 
un grupo de números, crear páginas Web sobre la marcha, y mucho, mucho más. 


NOTA: VBScript es un gran lenguaje de programación. Después de aprender a fondo 
VBScript, es fácil dominar Visual Basic. También se debería ser capaz de configurar los pro- 
ductos de Office 97, y automatizar cualquier tarea que se realizara repetitivamente en di- 
chos productos, utilizando sus versiones de Visual Basic. (Estas versiones forman parte de 
la familia Visual Basic para Aplicaciones, o VBA. Hay VBA para Word, para Excel, etc.) Es un 
poco duro hacer una transición desde VBScript a Java, pero esto también estará a su alcan- 
ce después de acabar este libro. 


Controles ActiveX y VBScript 


Uno de los puntos clave de VBScript es que resulta fácil utilizar controles ActiveX 
para realizar muchas de las tareas que se quieren. Ahora existe aparentemente una 
fuente inagotable de controles ActiveX reutilizables que pueden usarse en VBScript 
(y en Visual Basic). Microsoft estima que hay más de 4000 controles comerciales, 
y que probablemente existan decenas de miles de controles gratuitos y de libre dis- 
tribución. (Un control gratuito es exactamente eso, un control que es gratis. Un 
control shareware confía en la honradez de la gente; si le gusta, solicite el envío de 
un pago a su creador). Esto significa que si es necesaria una funcionalidad particu- 
lar en las páginas Web, tan sólo es necesario echar una mirada alrededor para bus- 
car el control que lo hace. Para comenzar, el CD que se acompaña tiene controles 
ActiveX, incluyendo algunos que reproducen vídeos, que hacen cálculos financie- 
ros, y mucho más. El CD que se acompaña también incluye una versión gratuita de 
Visual Basic para realizar sus propios controles ActiveX. 
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NOTA: ¿Está interesado en la lista más actualizada de controles comerciales ActiveX? La 
mejor que conocemos se encuentra en http://204.203.124.10//activexisv/direct.htm 


Utilización de objetos con VBScript 


Además de los controles ActiveX, VBScript permite la utilización de otros objetos 
que ya han sido creados por la gente. Por ejemplo, si alguien escribe un programa 
Java que hace algo que se quiere, éste se puede utilizar con un programa VB- 
Script. Incluso Microsoft Internet Explorer se puede ver como el último objeto 
Web. Se puede crear un script que le indique a Internet Explorer que vaya a una 
página Web o que visite todos los hiperenlaces de la página Web actual, uno por 
uno. Se puede hacer que Internet Explorer muestre una nueva página Web que se 
ha compuesto utilizando VBScript, y mucho, mucho más. 


Seguridad 


VBScript es seguro en sí mismo. Microsoft borró todas las características peligro- 
sas del lenguaje Visual Basic, como la capacidad de borrar el disco duro. Si sólo 
se está utilizando VBScript para realizar la validación o los cálculos de un pedido, 
no es necesario preocuparse de la seguridad: VBScript solo nunca puede dañar la 
máquina en la que se ejecuta. Pero, ¿qué sucede con la combinación de VBScript 
con Visual Basic? Aquí es donde se tiene que tener cuidado. 

Como ha sido tratado anteriormente en este capítulo, los controles ActiveX lle- 
van tanto facilidad de uso como potencia a una página Web. Sin embargo, una vez 
añadido un control ActiveX a una página Web, la seguridad que se dispone cuando 
se utiliza únicamente VBScript desaparece. No debería sorprenderse (la potencia 
siempre está asociada al riesgo). Es necesario tener en cuenta que los controles 
ActiveX pueden hacer cualquier cosa que haga un programa normal y corriente, Por 
este motivo, estos controles son tan potentes y útiles. Pero esto también significa 
que un control ActiveX malicioso puede tomar posesión del disco duro y borrarlo. 

¿Le asusta esto? Bueno, quiero que se asuste (lo suficientemente asustado como 
para que practique un procesamiento seguro), ¿Qué significa un procesamiento 
seguro? Significa que sólo se utilicen controles ActiveX procedentes de fuentes de 
confianza. (También espero que no esté utilizando programas que procedan de 
fuentes no fidedignas. Los antivirus son muy, muy buenos, pero no son perfectos.) 

¿Cómo se puede saber de dónde procede un control ActiveX? La idea es que 
los diseñadores de controles ActiveX puedan incorporar un certificado de identifi- 
cación que les identifique. Esto está basado en una tecnología llamada Authentico- 
de, incorporada en Internet Explorer. La configuración por defecto permite cargar 
un control ActiveX sólo si tiene un certificado de identificación. La primera vez 
que se intenta cargar un nuevo control ActiveX, aparecerá un cuadro de diálogo 
como el mostrado en la Figura 1.6. 

El certificado de identificación está empotrado en el control ActiveX y no pue- 
de falsificarse sin violar la seguridad del sistema (el mismo tipo de sistema de 
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Figura 1.6. Certificado de identificación. 


seguridad utilizado por los bancos para transferir dinero o por los gobiernos para 
mantener secretas sus transmisiones más confidenciales. Diversas compañías como 
VeriSign (www.verisign.com) expiden certificados. Si un certificado Authentico- 
de indica que un software procede de una compañía específica, se puede estar se- 
guro de esto. Generalmente, las sentencias absolutas son falsas o peligrosas, pero 
actualmente todos los que pertenecen a la industria informática están seguros de 
esto: nadie puede falsificar un certificado Authenticode. 

Sin embargo, Authenticode no garantiza que el control ActiveX no tenga erro- 
res en su código. Estos errores podrían causar perfectamente problemas sobre la 
marcha. Authenticode sólo garantiza la procedencia del código. 

Que un control ActiveX pueda tener errores no debería causar extrañeza (to- 
dos los programas potentes tienen errores). Cuanto más potente sea un control 
ActiveX, más probable es que tenga errores. Eso es la naturaleza de la bestia. Sin 
embargo, los vendedores con reputación no distribuyen programas que tengan erro- 
res peligrosos, y Authenticode garantiza que sabe de dónde procede un control. 


5 Alternativas a los certificados Authenticode 


Un applet Java es el 
nombre técnico de 
un programa Java 
que puede entender 
un explorador Web. 


¿Existen alternativas a los certificados Authenticode? Sí. Los applets Java utilizan 
una cosa que se llama modelo' de caja de arena. Como un niño que juega en un 
cajón de arena, un applet Java tiene limitado lo que puede hacer. Un applet Java 
cargado desde la red no puede afectar los archivos de la máquina, por ejemplo. El 
problema es que la mayoría de las veces el modelo de caja de arena limita dema- 
siado lo que se permite hacer a los applets. La utilización de un modelo de caja de 
arena por seguridad es particularmente absurda en una intranet corporativa que, 
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después de todo, podría no estar conectada a ninguna otra computadora. En este 
caso, toda la información procede de fuentes de confianza. Por ejemplo, suponga- 
mos que una compañía consolida sus proyecciones financieras a través de una pá- 
gina Web. Se quiere utilizar esta información en archivos personales. Es necesaria 
la capacidad de salvar esta información en un archivo local. 


NOTA: En las situaciones en las que el modelo de caja de arena es apropiado, se puede 
utilizar VBScript para controlar los applets Java escritos previamente. 


Más acerca de la seguridad en Internet Explorer 


La seguridad de Internet Explorer se controla mediante la ficha Seguridad del cua- 
dro de diálogo Opciones de Internet, mostrado en la Figura 1.7. (Seleccione Op- 
ciones de Internet del menú Ver.) 

Como se puede ver, Internet Explorer utiliza zonas para describir su modelo de 
seguridad. Cada zona se puede asignar a un nivel diferente de seguridad (depen- 
diendo de las acciones que se quieran autorizar). Dentro de cada zona, se puede 
elegir entre tres niveles preestablecidos de seguridad y uno configurable. Los ni- 
veles preestablecidos son los siguientes: 


Internet 


Figura 1.7. Ficha Opciones de Internet. 
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El nivel Alto de seguridad prohibe a Internet Explorer cargar controles 
ActiveX. 


m El nivel Medio de seguridad prohibe a Internet Explorer cargar controles Acti- 


veX sin certificados de identificación. En controles con certificado de identifica- 
ción, éste se muestra para que se pueda tomar una decisión informada sobre car- 
gar, o no, el control. (Este es el nivel que utilizamos, y es el nivel por defecto 
para Internet. Es el único que se recomienda a la mayoría de la gente, aunque 
su compañía podría, por muy buenas razones, elegir la configuración Alta.) 


m El nivel Bajo de seguridad permite que se cargue cualquier control ActiveX 


con un certificado de identificación. Aunque los certificados no son fáciles de 
obtener, es posible que un malvado pirata informático obtenga uno. Recomen- 
damos encarecidamente que no se utilice este nivel en la «Zona de Internet». 


La seguridad Configurable está diseñada para usuarios expertos. Eligiendo 
este nivel y luego pulsando el botón Configuración se muestra el cuadro de 
diálogo de la Figura 1.8. Este permite controlar todos los aspectos de la 
seguridad. Por ejemplo, si se va moviendo por el cuadro de diálogo, verá 
que incluso se puede controlar el tipo de automatización que está permitido. 
(Véase la Figura 1.9.) La automatización activa es la jerga utilizada para 
permitir ejecutar scripts en una máquina, siendo éste el valor por defecto. 


Configuración de seguridad 


8) Ejecutar los controles y complementos para ActiveX: 
O Activar 
O Pedi datos 
O Desactivar 
8) Descargar los controles firmados para ActiveX 
O Activar 
O Pedi datos 
O Desactivar 
48) Descargar los controles no firmados para ActiveX. 
o 


Figura 1.8. Cuadro de diálogo en el que se pueden configurar las opciones de seguridad. 
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|| Configuración de seguridad 


Figura 1.9. Sección Automatización del cuadro de diálogo Configuración de seguridad. 


Como se puede ver en la Figura 1.10, existen cuatro zonas de contenido Web: 


m Zona intranet local. 

m Zona de sitios en los que se confia. 

m Zona internet. 

m Zona de sitios restringidos. 

Cada zona tiene un nivel de seguridad independiente. 

El nivel de seguridad por defecto es Alto para sitios restringidos, Medio para 
internet e intranet local y Bajo para sitios en los que se confía. Si se quiere añadir 


un sitio en el que se confía (como la parte del sitio Web de su compañía a la que 
sólo tienen acceso los empleados), haga lo siguiente: 


1. Seleccione Zona de sitios en los que se confía de la lista desplegable mos- 
trada en la Figura 1.10. 
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Figura 1.10. Zonas de Internet Explorer. 


2. Pulse el botón Agregar sitios para mostrar el cuadro de diálogo de la Figu- 
ra 1.11. Se puede añadir cualquier sitio de este cuadro de diálogo que se 
quiera. 


Figura 1.11. Cuadro de diálogo para añadir un nodo de confianza. 


Capítulo 


HTML y VBScipt 


Como se explicó en el Capitulo 1, una página Web se crea escribiendo instruccio- 
nes en un lenguaje llamado HTML (Hypertext Markup Language, lenguaje de ge- 
neración de documentos hipertexto). Originalmente, un lenguaje de marcas era 
una forma de dar directivas tipográficas para imprimir una página. Lo que HTML 
hace es dar directivas al explorador sobre cómo mostrar una página, 

En un libro sobre VBScript podría parecer extraño dedicar la mayor parte de 
un capitulo a HTML. Después de todo, la mayoría de la gente sabe que cada vez es 
menos importante saber HTML. Esto es debido a la gran cantidad de herramientas 
baratas de creación de páginas Web como Microsoft FrontPage 98, y a que buenas 
herramientas gratuitas como Microsoft FrontPage Express (que viene con la ver- 
sión 4 de Microsoft Internet Explorer) están fácilmente disponibles. 

Herramientas como éstas son fáciles de usar, y crean las instrucciones HTML 
por uno mismo, Por eso, ¿por qué se explica (o se repasa) HTML? La razón es que 
VBScript vive en una página Web, y no se puede escribir un script si no se entien- 
de cómo funcionarán las instrucciones del script con las instrucciones HTML en 
dicha página. Además, si se quiere utilizar VBScript para crear páginas sobre la 
marcha, es necesario entender la estructura de una página Web y cómo funciona 
HTML. Esta capacidad, que es una de las características más importantes que ofrece 
VBScript, requiere ser capaz de escribir instrucciones HTML. 


FUNDAMENTOS DE HTML 


La Figura 2.1 muestra parte del conjunto de instrucciones HTML de la página 
inicial de VBScript de Microsoft (www.microsoft.com/vbscript), ¡una buena pági- 
na para visitar periódicamente! Las instrucciones de cualquier página Web se pue- 
den mostrar yendo a dicha página y eligiendo Código fuente del menú Ver de 
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o 
(META NAME="TECHNOLOGY" CONTEMT="SCRIPTIMG"></HEAD> 


|CFRAMESET ROWS="21,="" BORDER=0 FRANEBORDER="N0" FRAMESPI 
<FRAME sr ES 
<FRAME sros“/ubsCript/us/maininto NU” NANE="PRODINFO” 
|C/FRAMESET) 


knorranes> 
<BODY BGCOLOR=FFFFFF LIMK=R003ICC LEFTHARGIN=0 TOPMARGIN=0> 


Figura 2.1. Fuente HTML de www.microsoft.com/vbscript. 


Internet Explorer. (Fuente es el término utilizado para hacer referencia a un con- 
junto de instrucciones escritas en un lenguaje informático, como HTML. Fuente 
también hace referencia al código fuente o simplemente código plano.) 


CONSEJO: Una buena forma de obtener ideas sobre cómo escribir el código de sus pro- 
pias páginas Web es observar el código fuente de sus páginas Web favoritas. 


Como se puede ver más arriba, el fuente HTML es un archivo texto ordinario, 
aunque con un aspecto complicado. Después de todo, la Figura 2.1 muestra el fuente 
HTML en el Bloc de notas, jun editor de archivos de texto! (Compare esto con la 
basura que se vería si se intentara abrir un archivo Microsoft Word en el Bloc de 
notas.) Una diferencia evidente entre un archivo HTML y un archivo de texto nor- 
mal es la convención de nombrado del archivo. La extensión estándar de un archi- 
vo texto es .txt; para un archivo HTML es .htm (o a veces .html). 

Lo que es importante destacar de la Figura 2.1 es que incluye elementos dentro 
de directivas, contenidos entre los símbolos mayor y menor (<>). Por ejemplo, la 
siguiente línea indica al Internet Explorer cuál debe ser el título de la página: 


<TITLE>Página Web VBScript</TITLE> 


Las directivas con sus simbolos mayor y menor se llaman etiquetas HTML. 
Las etiquetas HTML dan generalmente directivas al explorador. Le dicen habi- 
tualmente lo que tiene que hacer con la información entre las etiquetas. Además de 
mostrar el título, se pueden dar otras directivas sobre cómo mostrar el texto entre 
las etiquetas. Por ejemplo, la siguiente linea le indica al explorador, que muestre en 
negrita el texto que hay entre el par de etiquetas: 


<B>Esto aparecerá en negrita</B> 
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Como muestran los dos ejemplos anteriores, la etiqueta final utiliza general- 
mente una barra oblicua (/) para indicar al explorador que deje de hacer lo que la 
etiqueta anterior le dijo que hiciera. La estructura general de un par de etiquetas 
HTML es éste: 


<LO QUE HAY HACER>Con qué hay que hacerlo</LO QUE HAY HACER> 


La convención es que las etiquetas estén en mayúsculas, aunque esto le da 
igual al explorador. 

La única excepción a esta estructura son las etiquetas que no funcionan con 
textos. Por ejemplo, la etiqueta <BR> inserta un retorno de carro. ¡No tendría sen- 
tido tener una etiqueta </BR>! 


La estructura del fuente HTML en una página Web 


La Figura 2.2 muestra la estructura de cualquier fuente HTML. Las diferentes eti- 
quetas HTML se ponen, con su texto asociado, dentro de la estructura. 

Como cabría esperar, el par de etiquetas <HTML></HTML> agrupan todas 
las instrucciones de la página Web actual. Todo lo que se quiera mostrar o proce- 
sar por el explorador se debe situar entre estas dos etiquetas. El fuente HTML se 
divide generalmente en dos partes. La primera es la cabecera, y la otra el cuerpo. 
La cabecera comienza después de la etiqueta <HEAD>; en ésta es donde se sitúa 
la información de la página Web que no se quiere que muestre el explorador. 
También es donde se ponen las etiquetas necesarias para dar un título a la página 
Web. 


<HTLM> 


</HEAD> 


<BODY> 


</BODY> 


</uTML> 


Figura 2.2. Estructura de cualquier fuente HTML. 
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Sin embargo, para los programadores VBScript la cabecera es también donde 
se sitúa la mayor parte del código VBScript; no es frecuente situar un script en el 
cuerpo. 

Tradicionalmente, el cuerpo es donde se encuentran todas las cosas importan- 
tes. Es donde se ponen todavía las etiquetas HTML que describen la página. Por 
ejemplo, la Figura 2.3 muestra la página Web más sencilla que se puede construir. 
Este es el código HTML: 


<HTML> 


<HEAD> 
<TITLE>La página Web más sencilla</TITLE> 
</HEAD> 
<BODY> 
<B>Hola mundo</B> 
</BODY> 


</HTML> 


En realidad, esta página Web se ha creado de la forma tradicional haciendo lo 
siguiente: 


1. Abriendo el Bloc de notas (pulsando el botón Inicio, seleccionando Pro- 
gramas, Accesorios y luego Bloc de notas) 

2. Escribiendo el fuente HTML 

3. Salvando el fuente en un archivo llamado Simple.html 


4. Seleccionando Abrir del menú Archivo del Internet Explorer, y eligiendo 
este archivo 


Figura 2.3. La página Web más sencilla. 


Los espacios en 
blanco constan de 
espacios, retornos 
de carro y 
tabuladores (todo lo 
que crea áreas en 
blanco en una 
página), 
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NOTA: La utilización de FrontPage 98 o FrontPage Express es a veces peligrosa. De cual- 
quier forma, la mayoría de los programadores de VBScript se encuentran muy confortables 
con el Bloc de notas, puesto que es lo que aparece cuando se selecciona la opción Código 
fuente del menú Ver del Internet Explorer. 


Una de las cosas más confusas sobre la escritura de código fuente HTML es 
que casi nunca se tienen en cuenta los espacios en blanco. Por ejemplo, se inserta- 
ron líneas en blanco entre la sección de cabecera y el cuerpo. Se hizo para separar 
claramente las diferentes partes del fuente HTML. De hecho, los espacios en blan- 
co no afectan generalmente el aspecto de las páginas Web. Por ese motivo es nece- 
sario utilizar una etiqueta como <BR> para indicar un retorno de carro. Esto puede 
resultar alarmante la primera vez que se ve. Un explorador muestra las siguientes 
dos líneas de código fuente de exactamente la misma forma: 


<B>Hola Mundo</B> 


<B>Hola Mundo</B> 


Esto podría parecer extraño, pero los exploradores lo hacen por una buena ra- 
zón. Sólo ellos conocen la resolución de la máquina que muestra la página, y sólo 
ellos conocen el tamaño de la ventana de la página. Dejando que sea el explorador 
quien dé formato y espacie el texto, se consigue que las páginas Web tengan el 
mejor aspecto posible. 


Etiquetas HTML fundamentales 


Esta sección trata las etiquetas HTML más simples. Las etiquetas más sofistica- 
das, como las necesarias para hacer tablas, se dejarán para más adelante. En este 
capítulo se quieren dar solamente las etiquetas necesarias para que se pueda co- 
menzar a programar. 

Antes de hacer eso, es necesario explicar qué son los atributos. Un atributo se 
sitúa dentro de una etiqueta para dar las directivas de la etiqueta. Por ejemplo, la 
etiqueta <BODY> puede tener un atributo llamado BACKGROUND. Este es el 
que establece el «papel tapiz» de las páginas Web. Por ejemplo: 


<HTML> 


<HEAD> 
<TITLE>Añadiendo un fondo</TITLE> 
</HEAD> 


<BODY BACKGROUND="ArchivoGif.gif"> 
<B>Hola Mundo</B> 
</BODY> 


</HTML> 
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URL es el término 
técnico de la 
dirección que se 
escribe en un 
explorador. 


Esto cubriría la página Web con la imagen almacenada en el archivo Archi- 


voGif.gif. Generalmente, la URL (Uniform Resource Locator, localizador uniforme 
de recursos) del archivo se puede usar como se muestra en el siguiente ejemplo: 


<BODY BACKGROUND="www.MiEmpresa.com/logo/LogoEmpresa.gif> 


Ahora se verá una breve descripción de las etiquetas fundamentales. 


Etiquetas de párrafos y texto 


Ya se ha dicho que un explorador ignora los espacios en blanco como los retornos 


de carro, por eso ¿cómo puede dividirse un texto? Ya se ha hablado de la utiliza- 
ción de la etiqueta <BR> para añadir un retorno de carro. Aunque desde luego la 


etiqueta <BR> tiene sus usos, una forma mejor de decirle al explorador que se está 
comenzando un nuevo párrafo es introducirlo entre un par de etiquetas <P></P>, 


como se muestra en el siguiente ejemplo. Para darle más chispa, también se pue- 
den utilizar los dos atributos de etiquetas de texto más comunes. Además del par 


de etiquetas <B></B> para negritas, se introduce el par de etiquetas <I></I>, que 
indica itálicas. 


<HTML> 


<HEAD> 
<TITLE>Haciendo gala de las etiquetas de párrafos </TITLE> 
</HEAD> 


<BODY> 
<P> 


Hola. Este es el primer párrafo. Obsérvese que se están 
utilizando retornos de carro dentro de las etiquetas porque 
esta información no cabe en una línea 


</P> 
<P> 


Hola. Este es el segundo párrafo. Obsérvese que se han 
utilizado retornos de carro para separar los párrafos.<B>Esto 
es porque me conviene; al explorador no le importa.</B> 
observe que el texto anterior está en negrita y que el texto 
siguiente tiene una palabra en itálica. Esto demuestra que se 
pueden <I>anidar</I> etiquetas. 


</P> 
</BODY> 


</HTML> 


La Figura 2.4 de la siguiente página muestra la página Web creada mediante 
este código fuente. 
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Hola Este es el prmer párrafo. Obsérvese que se están utilizando retornos de carro dentro de las etiquetas 
porque esta información no cabe en una linea 


Hola Este es el segundo párrafo Obsérvese que se han utiizado retornos de carro para separar los 
párrafos. Esto es porque me conviene; al navegador no le importa. observe que el texto anterior está 


en negrita y que el texto sguiente nene una palabra en tálica Esto demuestra que se pueden axidar 
enqueras 


Figura 2.4. El efecto de las etiquetas <P>, <B> e <>. 


NOTA: Anidar etiquetas es embeber un conjunto de etiquetas dentro de otras. Pero ten- 
ga en cuenta que el anidamiento funciona como las muñecas rusas (las etiquetas finales se 
deben insertar en orden inverso al de las iniciales), de esta forma: 


<P><B>Prueba</B></P> 
Lineas como ésta dan resultados erráticos en el mejor de los casos: 


<P><B>Prueba</P></B> 


La etiqueta <P> puede tener un atributo. Este atributo controla la forma de 
sangrar los párrafos. Por ejemplo: 


<P ALIGN=CENTER>Esto aparecerá centrado</P> 


Existen tres atributos de alineación: CENTER, LEFT y RIGHT. La Figura 2.5 
muestra el efecto de la utilización de estos atributos. El fuente HTML de la página 
es éste: 


<HTML> 
<HEAD> 
<TITLE>Haciendo gala de las etiquetas de alineación de 
párrafos</TITLE> 


</HEAD> 


<BODY> 
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Este texto está alineado a la izquierda. 


Figura 2.5. Efecto del atributo ALIGN. 


<P ALIGN=CENTER> 
Este texto está <B>centrado.</B> 
</P> 


<BR><BR><BR> 


<P ALIGN=LEFT> 
Este texto está <B>alineado a la izquierda.</B> 
</P> 


<BR><BR><BR> 


<P ALIGN=RIGHT> 
Este texto está <B>alineado a la derecha.</B> 
</P> 


</BODY> 


</HTML> 


Ocasionalmente, querrá darse formato a un texto en vez de dejar que sea el 
explorador quien lo haga. Esto se puede hacer incluyendo el texto (exactamente 
como se quiera mostrar) entre el par de etiquetas <PRE></PRE>. (PRE denota tex- 
to preformateado.) Generalmente, esto no es una buena idea porque no hay forma 
de conocer la resolución de la computadora de un usuario o el tamaño de la ventana 
de su explorador. Sin embargo, se dispone de esta opción por si se necesitara. 


NOTA: La resolución es el número de puntos (o pixels) que una computadora es capaz de 
mostrar. La gente habla de resoluciones de 640x480, por ejemplo, y esto significa que la 
computadora muestra 640 puntos a lo ancho de la pantalla y 480 puntos a lo alto. En la 
mayoría de los PC, la resolución puede especificarse desde 640x480 hasta 1280x1024. (Será 
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necesario un gran monitor o unos ojos excepcionales para ver confortablemente en el últi- 
mo caso.) Quince líneas de texto (en un tamaño de letra estándar) en un explorador que 
ocupa toda la pantalla con una resolución de 640x480 abarcan la mayor parte de la panta- 
lla; en una máquina con una resolución de 1280x1024 sólo abarcan una pequeña porción. 
Por tanto, si se está utilizando la etiqueta <PRE> para mostrar 20 líneas en la pantalla 
del id no hay forma de saber la cantidad de pantalla ocupada (o incluso si cabrán las 
20 líneas). 


5 Etiquetas de niveles de cabecera 


Un nivel de cabecera es un descendiente de lo que los maestros ingleses llaman un 
nivel de esquema. Los niveles de cabecera se utilizan para dividir un documento 
en partes coherentes y para indicar la importancia de las diferentes partes. Una 
cabecera de nivel 1 es el nivel más alto, una cabecera de nivel 2 es el siguiente 
nivel, y así sucesivamente. HTML ofrece hasta seis niveles de cabecera. Las eti- 
quetas de niveles de cabecera son simplemente <H1>, <H2>, <H3>, hasta <H6>, 
Una etiqueta de nivel de cabecera puede utilizar el mismo atributo ALIGN que la 
etiqueta de párrafo. 

La Figura 2.6 muestra los seis diferentes niveles de cabecera producidos por el 
siguiente fuente: 


<HTML> 
<HEAD> 
<TITLE>Haciendo gala de las etiquetas de niveles de cabecera 
</TITLE> 
</HEAD> 


Esta es una cabecera de nivel 1. 


Esta es una cabecera de nivel 2. 


Esta es una cabecera de nivel 3. 
Esta vs una cabecera de nivel 4. 
Esta es uma cabecera de nivel $. 


o un cr derar 


Figura 2.6. Efecto de las etiquetas de niveles de cabecera. 


26 APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


HREF significa 
referencia a 
hipertexto. 


<BODY> 


<H1> 
Esta 
</H1> 


<H2> 
Esta 
</H2> 


<H3> 
Esta 
</H3> 


<H4> 
Esta 
</H4> 


<H5> 
Esta 
</H5> 


<H6> 
Esta 
</H6> 


</BODY> 


</HTML> 


Enlaces 


Los enlaces son, por supuesto, la esencia de la World Wide Web. La idea de pulsar 
simplemente un texto y ser llevados al sitio adecuado es lo que el término hiper- 
texto trata de describir. (Ted Nelson creó originalmente este término en 1965. ¡Se 
podría querer realizar una búsqueda en la Web sobre este fascinante hombre y 
explorar sus igualmente fascinantes ideas!) 

La etiqueta que describe un enlace se llama ancla, y se representa por <A>. Lo 
importante de una etiqueta ancla es el atributo HREF. 

Por ejemplo, a continuación se presentan dos formas de situar en su nodo un 


es 


es 


es 


es 


una 


una 


una 


una 


una 


una 


cabecera 


cabecera 


cabecera 


cabecera 


cabecera 


cabecera 


de 


de 


de 


de 


de 


de 


nivel 


nivel 


nivel 


nivel 


enlace a la página Web VBScript de Microsoft: 


<A HREF="www.microsoft.com/vbscript"> 
www.microsoft.com/vbscript 


</A> 


<A HREF="www.microsoft.com/vbscript"> 
Pulse aquí para ir al nodo VBScript 


</A> 


Los resultados se muestran en la Figura 2.7. Obsérvese que el texto contenido 
entre el par de etiquetas <A></A> es el que aparece subrayado en el explorador. 
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Figura 2.7. Cómo añadir un enlace utilizando la etiqueta <A>. 


La URL de la página Web con la que se está enlazando no se verá a no ser que se 
ponga en el fuente, como se ha hecho en el primer ejemplo. 

La etiqueta ancla tiene otro atributo que puede ser muy útil (NAME). El atri- 
buto NAME se puede utilizar para permitir que el usuario se mueva de una parte a 
otra la de página Web. Por ejemplo, probablemente habrá visto páginas Web con 
un índice al principio. Si se pulsa el enlace llamado Capítulo 2, le llevará a la parte 
del documento donde comienza el Capítulo 2. Para crear esto es necesario un pro- 
ceso de dos pasos. Asumamos que el nombre del documento es SaltoInterno,htm. 


1. Sitúe una etiqueta ancla al principio de la sección donde empieza el Capi- 
tulo 2 y nómbrela utilizando el atributo NAME: 


<A NAME="Capítulo 2"> 
Capítulo 2 
</A> 


2. Sitúe la siguiente versión de la etiqueta ancla al principio de la línea del 
indice apropiada: 


<A HREF="SaltoInterno.htmiCapítulo 2"> 
Capítulo 2 
</A> 


Asegúrese de situar el símbolo # dentro de las comillas seguido del mismo 
texto utilizado en el atributo NAME. 
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NOTA: Este tipo de enlace interno fue el más común en los primeros días de HTML; por 
este motivo esta etiqueta es la <A>. La A hace referencia a ancla, y se utiliza con el atribu- 
to NAME para enlazar partes del documento en referencias futuras, 


3 A de comentario 


Normalmente, las etiquetas de comentario se utilizan para documentar el código; 
el texto que se sitúa dentro de la etiqueta es ignorado por el explorador. Un co- 
mentario puede describir lo que hace el código HTML o puede incluir su nombre, 
la fecha, etc. Actualmente, comentario es un mal nombre para lo que va dentro de 
esta etiqueta porque en HTML, como pronto podrá verse, ¡un script también se 
sitúa dentro de una etiqueta de comentario! Un término más adecuado sería texto 
invisible, en vez de comentario. 

De cualquier forma, la etiqueta de comentario es algo diferente de otras etique- 
tas HTML ya que la información que se quiere se sitúa dentro de una única etique- 
ta. Por ejemplo: 


<!--Esto es un comentario ==> 


Una convención adoptada por mucha gente es dividir los elementos de la eti- 
queta de comentario como sigue: 


<l 
Esto es un comentario 


Esto es más cercano al modelo <TAG></TAG>. En cualquier caso, este estilo 
es necesario cuando hay múltiples lineas que no se quieren mostrar en el explorador. 


CÓMO EMPEZAR A PROGRAMAR EN VBSCRIPT 


Ahora que se han visto los fundamentos de HTML es hora de empezar a progra- 
mar en VBScript. La Figura 2.8 muestra la estructura de una página programada 
en VBScript. Observe que las etiquetas HTML de comentario contienen el script. 
Esto es por lo que algunos exploradores no pueden entender VBScript sin las eti- 
quetas de comentario. (El script no se mostrará en la página Web.) 


Nuestro primer script 


Ahora que conocemos la estructura del código VBScript, escribiremos nuestro 
primer script. Comenzaremos con la orden MsgBox de VBScript, que muestra un 
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<HTML> 
<HEAD> 
<TITLE>Your title goes here</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT”> 
<t- 


Your script goes here, 
inside the comment tag 


</SCRIPT> 
</HEAD> 


<BODY> 


</MIML> 


Figura 2.8. Estructura de cualquier fuente HTML que contiene código VBScript. 


cuadro de mensaje con cualquier texto que se le especifique. El texto del cuadro 
de mensaje debe estar entre comillas, como se puede ver en el siguiente script: 
<HTML> 

<HEAD> 


<TITLE>Nuestro primer script</TIT 


<SCRIPT LANGUAGE="VBSCRIPT*> 


MsgBox "Hola Mundo" 


</SCRIPT> 
</HEAD> 


<BODY> 
</BODY> 


</HTML> 
La Figura 2.9 muestra lo que se quiere ver, (Pulse OK para hacer desaparecer 


el cuadro de mensaje.) 


Cómo obtener información de usuario 


Aunque hay muchas formas de obtener información del usuario, aquí se tratará la 
más sencilla. Esta se llama cuadro de entrada. Un cuadro de entrada acepta infor- ~ 
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Figura 2.9. Creación de un cuadro de mensaje. 


mación, como se muestra en la Figura 2.10. La peculiaridad de la utilización de un 
cuadro de entrada es la necesidad de asignar la información a una variable. Se 
hablará mucho de variables en el siguiente capítulo (por ahora, piense en ellas 
como lugares de almacenamiento de información). El siguiente script solicita un 
nombre y lo almacena en una variable llamada SuNombre. Después de haber in- 
troducido el nombre, el script lo muestra en un cuadro de mensaje. 


NOTA: Cuando se utiliza una variable en la orden MsgBox, no se ponen comillas. 


<HTML> 
<HEAD> 
<TITLE>Ejemplo de cuadro de entrada</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT*"> 


<1-- 


SuNombre = InputBox("¿Cuál es su nombre?" ) 
MsgBox SuNombre 


--> 
</SCRIPT> 


</HEAD> 


<BODY> 
</BODY> 


</HTML> 
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Figura 2.10. Ejemplo de cuadro de entrada. 


Cómo realizar páginas Web sobre la marcha: 
La orden Document.Write 


En los dos ejemplos anteriores, los scripts mostraban la información en cuadros. 
Esta técnica es útil ocasionalmente, pero ¿no sería visualmente más agradable mos- 
trar la información de forma que pareciera ser una parte intrínseca de la página 
Web? (sin poner nada de código en el cuerpo del fuente HTML). Obsérvese que 
esto es un proceso dinámico, el script producirá una página Web única como res- 
puesta al nombre introducido por el usuario. 

Por otra parte, un proceso estático siempre produce la misma página Web. Un 
script que se escribe para que muestre siempre Fernando Dominguez, por ejem- 
plo, es un script estático. 

La clave de la producción de páginas Web dinámicas utilizando VBScript es la 
orden Document. Write. Por ejemplo, si VBScript procesa una línea de código como 
ésta: 


Document .Write "<P>Hola Mundo</P>" 


el texto «Hola Mundo» se mostrará realmente como un párrafo en la página Web. 
A continuación se muestra el script. (La Figura 2.11 de la siguiente página propor- 
ciona un ejemplo de lo que puede hacer.) Cuando haya tenido la oportunidad de 
ejecutarlo, se explicará lo que sucede en las lineas claves: y 
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Figura 2.11. Página Web dinámica. 


<HTML> 
<HEAD> 
<TITLE>Ejemplo de cuadro de entrada</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT*> 
mb 


SuNombre = InputBox("¿Cuál es su nombre 
Document .Write "Su nombre es" 

Document, Write "<Hl>* 

Document.Write SuNombre 

Document Write *</H1>" 


-=> 
</SCRIPT> 


</HEAD> 


<BODY> 
</BODY> 


</HTML> 
Las líneas clave son: 


SuNombre = InputBox("¿Cuál es su nombre?") 
Document .Write "Su nombre es" 

Document .Write "<H1>" 

Document .Write SuNombre 

Document .Write "</H1>" 


A 
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Observe que se está escribiendo dinámicamente la etiqueta de nivel de cabece- 
ra <H1> dentro del documento. Puesto que VBScript procesa este código de arriba 
hacia abajo, VBScript, en efecto, le indicará a Internet Explorer que: 


1. Ponga el texto Su Nombre es en la parte superior de la página Web. 

2. Comience una cabecera de nivel 1. 

3. Ponga el texto almacenado en la variable SuNombre dentro de la cabecera 
de nivel 1. 

4. Termine la cabecera de nivel 1, 


Cómo insertar controles ActiveX 


La sección anterior ha iniciado el camino de la programación seria con VBScript, 
pero como se mencionó en el Capítulo 1, mucha de la potencia de VBScript proce- 
de de su capacidad para manejar los miles de controles ActiveX que están ahí 
fuera. En este capítulo se desea mostrar cómo se utiliza Microsoft ActiveX Con- 
trol Pad (que se incluye en el CD que se acompaña) para añadir controles ActiveX 
a las páginas Web. 


NOTA: La mejor herramienta para trabajar con controles ActiveX es FrontPage 98, siendo 
FrontPage 97 y FrontPage Express significativamente menos potentes. (FrontPage Express, 
que viene gratis con Internet Explorer, es una versión reducida de FrontPage 97.) Sin em- 
bargo, en nuestra opinión, ActiveX Control Pad es la mejor de las herramientas gratuitas 
disponibles para que los programadores VBScript trabajen con controles ActiveX. 


¿Porqué es necesaria una herramienta para insertar 
un control ActiveX? 


Antes de mostrar cómo se utiliza ActiveX Control Pad para insertar un control 
ActiveX, se podría estar preguntando por qué es mejor utilizar una herramienta 
especial para esto. Podría incluso estar creando sus propias páginas Web utilizan- 
do un editor de texto, como el Bloc de notas, para escribir a mano todo el código 
fuente HTML. Ha evitado herramientas como FrontPage durante mucho tiempo y 
podría resistirse a comenzar a utilizarlas ahora. Le comprendo. Evidentemente se 
utilizan editores de texto para escribir archivos HTML sencillos y para modificar 
los existentes, pero cuando es necesario insertar controles ActiveX, créame, no 
intente hacerlo a mano. ¿Por qué? Bueno, para que los controles ActiveX se pue- 
dan utilizar en diferentes máquinas, cada tipo de control necesita tener un id espe- 
cial llamado CLSID (procede del inglés class id, que significa identificador de 
clase). Se podría pensar que el nombre de un cuadro de texto es «cuadro de texto», 
pero para su PC y para cualquier otro PC del planeta, ahora y en el futuro, su 
nombre es realmente: 


8BD21D10-EC42-11CE-9E0D-00AA00600273 
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La idea que está detrás de estos números de identificación tan absurdamente 
largos es que si la persona que muestra la página Web habla un idioma diferente 
del inglés, la computadora de dicha persona mostrará todo en su propio lenguaje. 
En este caso, «cuadro de texto» no tiene sentido para la computadora, pero el CL- 
SID lo entiende. Además, un sistema operativo podría estar utilizando cuadros de 
texto con un aspecto diferente al de los cuadros de texto de otro sistema operativo. 
El CLSID siempre identificará un cuadro de texto independientemente de su as- 
pecto, mostrando el apropiado para cada sistema operativo. 


NOTA: Puesto que un CLSID es un tipo de GUID (globally unique identifier, identificador 
único globalmente), a veces el CLSID se verá referenciado como GUID. 


Naturalmente, ¡nadie en sus cabales querrá trabajar con los identificadores de 
clase en bruto! Por ejemplo, como se verá en la siguiente sección, si se quisiera 
insertar un control ActiveX cuadro de texto en una página Web, se necesitaría 
escribir algo como esto en el fuente HTML: 


<OBJECT WIDTH=96 HEIGHT=24 
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F*"> 
</OBJECT> 


Evidentemente, si esto es lo que cuesta poner un control ActiveX en una 
página Web, a nadie le resultaría pesado, pero herramientas como ActiveX 
Control Pad o cualquier versión de FrontPage (incluyendo FrontPage Express) 
hacen que la introducción de información, como la referente a la CLSID, sea 
instantánea. 


CÓMO UTILIZAR ACTIVEX CONTROL PAD 


ActiveX Control Pad combina un editor HTML sencillo (en nuestra opinión, no 
mucho mejor que el Bloc de notas) con algunas características muy potentes para 
trabajar con controles ActiveX. Lo fundamental es que ActiveX Control Pad per- 
mitirá hacer lo siguiente: 


m Especificar el tipo de controles ActiveX que se quiera insertar, como por 
ejemplo, un botón de orden o un cuadro de texto. 


m Establecer las propiedades iniciales de dichos controles. 
Las propiedades incluyen el color de fondo del control, su altura, el fuente en 


el que se mostrará, etc. 
La Figura 2.12 presenta la ventana inicial de ActiveX Control Pad. 
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Figura 2.12. Ventana inicial de ActiveX Control Pad. 


Cómo insertar un control ActiveX 


Los controles ActiveX se deben insertar en el cuerpo del fuente HTML, por lo que 
se debe asegurar que el cursor esté allí. (De forma práctica, ActiveX Control Pad 
se abre con el cursor en una línea en blanco del cuerpo.) A continuación se selec- 
ciona Insert ActiveX Control del menú Edit. Esto abre un cuadro de diálogo como 
el mostrado en la Figura 2.13. (Los tipos de control que se verán listados dependen 
de los controles ActiveX que se hayan instalado en el sistema.) Para ilustrarlo, 
trabajaremos con el control CommandButton de Microsoft Forms 2.0, por lo que 
será necesario desplazarse por la lista hasta encontrarlo, 


introl 


Figura 2.13. Cuadro de diálogo Insert ActiveX Control. 
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ADVERTENCIA: No seleccione New HTML Layout del menú Archivo o Insert HTML La- 
yout del menú Edit. Estos funcionan en la versión 3 de Internet Explorer, no en su versión 4. 


Cómo establecer propiedades 
con ActiveX Control Pad 


Observe que cuando se inserta un control ActiveX aparecen dos ventanas dife- 
rentes, tal como se muestra en la Figura 2.14. La ventana Edit ActiveX Control 
presenta el botón de orden (rodeado por pequeños cuadrados blancos llamados 
manejadores de tamaño) como parte de la composición de la página; la ventana 
Propiedades muestra una tabla con todas las propiedades a las que se pueden asig- 
nar valores. Es fácil asignar un valor a una propiedad. Se puede trabajar con la 
ventana Edit ActiveX Control para reducir o ampliar el control. Para hacer esto, se 
arrastra uno de los ocho manejadores de tamaño que están alrededor del control; 
esto cambia automáticamente las propiedades Height y Width de la ventana Pro- 
piedades. (Observe que cuando se arrastra el control a una posición diferente de la 
página no se cambia su posición definitiva en dicha página Web. Esta posición se 
determina por la situación de la etiqueta de control <OBJECT> en el código HTML. 
Inicialmente, ésta será donde se sitúe el cursor; la etiqueta se puede mover poste- 
riormente cortando y pegando.) 

La ventana Propiedades permite cambiar cualquiera de las propiedades, inclu- 
yendo Height y Width, por lo que es más flexible que la ventana Edit ActiveX 
Control. Si se quiere utilizar la ventana Propiedades para cambiar las propieda- 
des de un control ActiveX se deben seguir los siguientes pasos, utilizando la Fi- 
gura 2,14 como guía: 


:uveX Control Pad - Page 


Figura 2.14. Ventanas Edit ActiveX Control y Propiedades. 
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1. Seleccionar la propiedad a la que se quiere asignar o cambiar el valor. 

2. Escribir el nuevo valor en el cuadro de texto al lado del botón Apply. 

3. Pulsar el botón Apply. 

Por ejemplo, si se siguen los pasos anteriores para cambiar la propiedad Cap- 
tion del botón de orden por «Púlseme», se podrá ver inmediatamente una vista 


preliminar que refleja el cambio en la ventana Edit ActiveX Control. (Véase la 
Figura 2.15.) 


NOTA: No todas las propiedades son manejadas por todos los exploradores. Se tendrían 
que experimentar las propiedades manejadas por cada uno de ellos. 


Después de cerrar las ventanas Edit ActiveX Control y Propiedades, ActiveX 
Control Pad situará automáticamente el código necesario (incluyendo el CLSID) 
en el fuente HTML. (Véase la Figura 2.16 de la página siguiente.) Observe que 
hay un pequeño cuadro azul en el margen izquierdo. Si se quisieran cambiar las 
propiedades del control se podría pulsar en este cuadro para volver a abrir las ven- 
tanas Edit ActiveX Control y Propiedades. 

A continuación se cambiará una propiedad más sofisticada (la que controla el 
color de fondo del botón. Para hacer esto, se selecciona la propiedad BackColor 
de la ventana Propiedades. Observe que tiene un valor completamente ilegible 
8000000 — Button Face. Existen dos formas de cambiar este valor. La primera es 
abrir el menú desplegable próximo al botón Apply, y luego elegir uno de los tipos 
estándar. (Véase la Figura 2.17.) 


Figura 2.15. Asignación de un valor a una propiedad. 
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“OBJECT 1D="CommandButton1” WIDTH=96 HEIGHT=32 
CLASSID="CLSID: Da O ON STO, 


<PARAM NAME="Caption'" VALUE="P24250:15e1 
<PARAM NAME="Size" VALUE="2540:846"> 
NAME="FontCharSet" VALUE="0"> 
ontPitchAndFamily" VALUE="2"> 
jgn" VALUE="3"> 


Figura 2.16. Fuente HTML resultante después de haber insertado un control ActiveX. 


La segunda forma es pulsar el botón elíptico situado a la derecha del menú 
desplegable. Este abre la ventana estándar de' Microsoft con la paleta de colores. 
Se puede seleccionar uno de los colores de esta paleta o incluso definir un color 
personalizado. 


: Propiedades 


Figura 2.17. Elección de un color de fondo. 
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CONSEJO: Para recorrer la lista completa de opciones de una propiedad, se pulsa dos 
veces sobre la columna derecha de dicha propiedad en la ventana Propiedades. Cada vez 
que se haga esto, se verá la siguiente opción disponible. (Naturalmente, esto sólo funciona 
para las propiedades que tienen una lista de opciones. No funcionará para la propiedad 
Caption, por ejemplo, porque en este caso se debe escribir el texto que se quiera. Además, 
el botón elíptico sólo aparece en algunas propiedades. Pulsar dos veces en la columna 
derecha de una de estas propiedades es equivalente a pulsar el botón elíptico.) 


Las propiedades más útiles de los botones de órdenes 


Incluso un control tan sencillo como un botón de orden tiene 24 propiedades a las 
que se le puede asignar un valor desde la ventana Propiedades. Con 24 propieda- 
des para sólo un botón de orden, no se revisarán todas ellas en detalle (algunas son 
autoexplicativos) pero se tratarán las más comúnmente utilizadas. 


NOTA: Una de las formas de hacer más manejables los controles ActiveX es aquella en la 
que cada propiedad tiene esencialmente la misma función en diferentes controles. Por ejem- 
plo, muchos controles tienen una propiedad Caption, y todos los controles visibles tienen 
las propiedades Height y Width. 


IA AutoSize 


$ 


A 


Autosize hace que el botón de orden aumente o disminuya su tamaño para ajustar- 
se al de su titulo. Es un ejemplo de propiedad Booleana. (Booleno significa que un 
valor es True o False.) Se puede pulsar dos veces en la columna derecha para 
recorrer las dos opciones. 


BackStyle 
Hay dos posibilidades: Opaque (el valor por defecto) y Transparent, que permite 
que el papel tapiz utilizado en la página Web se vea a su través. 


CodeBase 


¿Qué sucede si un usuario visualiza la página Web, pero el control ActiveX del 
botón de orden no está instalado en el sistema de dicho usuario? La propiedad 
CodeBase se puede utilizar para especificar la URL donde el explorador del usua- 
rio podria encontrar el control en la Web, si fuera necesario. 


5 Enabled 


La propiedad Enabled especifica que si un usuario pulsa el botón de orden sucede- 
rá alguna cosa. Normalmente, la propiedad Enabled tiene el valor True ¡porque se 
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quiere que pase algo! No se debe cambiar la propiedad Enabled de forma despreo- 
cupada. Si se asigna el valor False a esta propiedad, el botón de orden ya no volve- 
rá a funcionar, lo que podría confundir a sus usuarios. 


Height y Width 


Estas propiedades especifican la altura y anchura en puntos. Un punto es una me- 
dida tipográfica. 


ID 


ID es el nombre asignado al botón de orden para poder hacerle referencia en el 
código VBScript. Como se verá en la siguiente sección sobre procedimientos de 
manejo de eventos, la elección de un nombre significativo para un control puede 
hacer que el código sea más fácil de leer. El ID debe empezar con una letra. A 
continuación, se puede utilizar cualquier combinación de letras y dígitos (pero no 
espacios). El ID no puede exceder de 128 caracteres. 


NOTA: La convención que le gusta utilizar a muchos programadores es la de comenzar el 
ID de un botón de orden con las letras minúsculas cmd (por ejemplo, cmdPulsame). Noso- 
tros no utilizaremos dicha convención es este capítulo pero la usaremos a menudo en los 
siguientes, 


MousePointer y Mouselcon 


MousePointer especifica el aspecto del puntero del ratón cuando un usuario lo 
sitúe encima del botón de orden. La asignación a esta propiedad de un valor dife- 
rente al de la flecha usual es una buena forma de proporcionar realimentación al 
usuario de que ahora puede pulsar el botón. Si se quiere utilizar un puntero de 
ratón personalizado, se asigna a éste el valor 99-Custom y luego se cambia el de la 
propiedad Mouselcon. Después de seleccionar esta última propiedad, se pulsa en 
el botón elíptico para mostrar el cuadro de diálogo Load Picture, donde se puede 
buscar y seleccionar el archivo de un icono (.ico) o un cursor (.cur). 


Picture y PicturePosition 


En un botón de orden, se puede mostrar una imagen en vez del texto del título. Se 
selecciona la propiedad Picture y luego se pulsa el botón elíptico para mostrar el 
cuadro de diálogo Load Picture, donde se puede buscar y seleccionar una imagen. 
La propiedad PicturePosition se utiliza para determinar dónde se va a situar la 
imagen en la superficie del botón. 


HTML Y VBSCRIPT 41 


WordWrap 


Si se asigna True a la propiedad WordWrap, el texto del título se mostrará en 
tantas líneas como sea necesario. Un valor de False significa que sólo se utilizará 
una única línea; el texto se cortará si no cabe. 


Efecto en HTML de la asignación de valores a propiedades 


Después de haber terminado de establecer las propiedades de un control ActiveX, 
se cierran las ventanas Edit ActiveX Control y Propiedades. Entonces, se podrá 
ver el código fuente HTML con el código que ActiveX Control Pad añadió por el 
control. Como ejemplo, se insertará el control ActiveX de un botón de orden y se 
harán los siguientes cambios: 


m Se asigna Pulsame a la propiedad ID. 
m Se asigna True a la propiedad AutoSize. 
m Se asigna Pulsame a la propiedad Caption. 


El código HTML es el siguiente: 


<HTML> 

<HEAD> 

<TITLE>Nueva página</TITLE> 
</HEAD> 

<BODY> 


<OBJECT ID="Pulsame" WIDTH=59 HEIGHT=29 
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"> 
<PARAM NAME="VariousPropertyBits* VALUE="268435482"> 
<PARAM NAME="Caption” VALUE="Púlsame"> 
<PARAM: NAME="Size" VALUE="1535;767*> 
<PARAM NAME="FontCharSet" VALUE="0*> 
<PARAM NAME="FontPitchAndFamily" VALUE="2"> 
<PARAM NAME="ParagraphAlign" VALUE="3"> 
<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 


</BODY> 
</HTML> 


La información que describe al botón de orden está contenida dentro del par de 
etiquetas <OBJECT></OBJECT>, Vamos a ir más allá en esta sección para cono- 
cer más detalles. Primero tenemos: 


<OBJECT ID="Pulsame" WIDTH=59 HEIGHT=29 


Esto proporciona el nombre que se utilizará para identificar el botón de orden 
en el script, seguido por el ancho y el alto en puntos. (En HTML normal no se 
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puede cambiar el ancho y el alto una vez que la página Web se ha mostrado. En 
HTML dinámico, que es el tema del Capítulo 9, esto sí que se puede hacer.) A 
continuación viene la línea totalmente ilegible CLSID que contiene el identificar 
único globalmente del que se ha hablado anteriormente. Finalmente se ven las pro- 
piedades de los objetos. Si se observa este ejemplo detenidamente, se puede ver 
que el nombre de la propiedad se determina por el atributo PARAM NAME, y que 
el valor que se le asigna está determinado por el atributo VALUE. 


<PARAM NAME="Caption* VALUE="Púlsame"> 


Una vez que se familiarice con el aspecto del código HTML, se dará cuenta de 
que los siguientes pasos son un atajo para introducir varios controles del mismo 
tipo en un fuente HTML cuando las diferencias entre ellos son muy pequeñas (como 
que tengan sólo diferentes el ID y el título): 


1. Utilizar ActiveX Control Pad para asignar las propiedades del primer con- 
trol, insertando el par de etiquetas <OBJECT></OBJECT> necesarias en 
el código HTML. 


2. Escribir las etiquetas <BR> que sean necesarias para separar los controles 
en la página Web. 


3. Copiar la sección a la nueva situación comenzando desde la etiqueta <OB- 
JECT> hasta la etiqueta </OBJECT>. 


4, Utilizar el editor ActiveX Control Pad para cambiar a mano los valores de 
las etiquetas <PARAM> correspondientes a las propiedades que se quieran 
modificar. También hay que asegurarse de cambiar el valor del ID. 


Esto es a menudo mucho más rápido que la utilización de ActiveX Control Pad 
para insertar varios controles del mismo tipo. Finalmente, hay que recordar que 
después de haber construido la página Web es necesario salvarla eligiendo la op- 
ción Guardar o Guardar como del menú Archivo. 

Para ver la página en Internet Explorer, se selecciona Abrir del menú Archivo. 
A continuación se puede utilizar el botón Examinar para encontrar el archivo que 
se ha salvado. 


PROCEDIMIENTOS DE MANEJO DE EVENTOS 


Si se salva la página Web y luego se abre en el Internet Explorer, se verá un botón 
de orden con el título Púlsame. El problema es que al pulsar el botón no pasa nada. 
En esta sección se quiere mostrar cómo activar el botón. Lo esencial de la mayoría 
de los scripts es, sobre todo, hacer que las páginas Web respondan a las acciones 
de los usuarios. 

Hay que recordar que cada control ActiveX se programa para responder a cier- 
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tos eventos. Por ejemplo, como podría esperarse, el botón de orden puede respon- 
der a un usuario ¡cuando se le pulsa! La clave es que aunque los controles ActiveX 
pueden reconocer teóricamente muchos eventos diferentes, la página Web no hará 
nada a no ser que se haya escrito código que indique qué es lo que tiene que hacer 
cuando suceda un evento. 

La idea es escribir un procedimiento de manejo de eventos para cada evento al 
que se quiera que responda un control ActiveX. Un procedimiento de manejo de 
eventos no es más que las líneas de código que indican a la página Web cómo 
responder a un determinado evento. 


CONSEJO: La propiedad ID es muy importante cuando se comienzan a escribir procedi- 
mientos de manejo de eventos para manejar controles ActiveX. Esta propiedad determina 
el nombre utilizado en los scripts VBScript que se escriban, Escoger un nombre significativo 
como ID de un control facilita la programación. 


Cómo escribir un procedimiento de manejo de eventos 


Imagine que se quiere añadir un procedimiento de manejo de eventos para el fuen- 
te HTML que muestra el botón de orden. Esto es lo que se tiene que hacer. Se 
mueve hacia atrás a la sección de cabecera, y luego se añaden las siguientes líneas: 


<SCRITP LANGUAJE="VBSCRIPT"> 


Sub Pulsame_Click 
MsgBox "Hola Mundo" 
End Sub 


</SCRIPT> 


También se debe cambiar el título. El fuente HTML completo tiene el siguien- 
te aspecto: 


<HTML> 
<HEAD> 
<TITLE>Un primer procedimiento de manejo de eventos</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT*> 


Sub Pulseme_Click 
MsgBox "Hola Mundo" 
End Sub 


==> 
</SCRIPT> 


</HEAD> 
<BODY> 


44 APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


<OBJECT I 
CLASSID="CLSII 
<PARAM NAME 
<PARAM NAME: 
<PARAM NAME: 


="Pulsame" WIDTH=59 HEIGHT=29 
D7053240-CE69-11CD-A777-00DD01143C57"> 
VariousPropertyBits" VALUE="268435483*> 
Caption" VALUE="Púlsame*> 
Size" VALUE="1535;767*> 
<PARAM NAME="FontCharSet" VALU: 
<PARAM NAME="FontPitchAndFami 
<PARAM NAME="ParagraphAlign" 
<PARAM NAME="PontWeight* VALUE="0*> 
</OBJECT> 


</BODY> 
</HTML> 


Las sangrias son sólo para hacer todo más fácil de leer (a VBScript no le afec- 
tan). Si ahora se salva la página Web, se abre en el Internet Explorer y se pulsa el 
botón, se verá un mensaje diciendo «Hola Mundo». (Véase la Figura 2.18.) 


Estructura general de un procedimiento de manejo de eventos 


No importa dónde se ponga el procedimiento de manejo de eventos; puede ir en la 
sección de cabecera o en el cuerpo. En este libro se situará todo el código en la 
sección de cabecera, a no ser que haya una razón específica para ponerlo en el 
cuerpo. (Todavía no hemos encontrado ninguna.) 

La estructura general de un procedimiento de manejo de eventos es ésta; 


Sub IDControl_TipoDeEvento 


End Sub 


Figura 2,18, Efecto de nuestro primer procedimiento de manejo de eventos. 


ERRATAS 
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El valor de la propiedad ID del control se sustituye por IDControl y el tipo de 
evento por TipoDeEvento. Se mantiene el subrayado, como en Pulsame Click, 
por ejemplo. Luego se sitúa el código dentro de estas dos líneas. (Incluso un con- 
trol tan sencillo como un botón de orden puede responder a diez eventos, pero en 
la mayoría de los casos sólo importa realmente el evento Click.) 


Nadie escribe de forma correcta continuamente. Si se comete un error y luego se 
ejecuta un script (pulsando el botón de orden), Internet Explorer mostrará un men- 
saje de error. Por ejemplo, cambie la palabra MsgBox por Msg en el procedimiento 
anterior de manejo de errores, de forma que la línea se lea: 


Msg "Hola Mundo" 


Salve la página Web, ábrala en el Internet Explorer e intente pulsar el botón, 
Pronto se verá un cuadro de diálogo como el mostrado en la Figura 2.19, La forma 
más sencilla de corregir esta clase de errores es hacer lo siguiente: 


1. Pulsar el botón No en el cuadro de diálogo. 


2. Elegir Código fuente del menú Ver de Internet Explorer para abrir el archi- 
vo fuente HTML en el Bloc de notas. 


3. Realizar los cambios, salvar el archivo y cerrar el Bloc de notas. 


4. Elegir Actualizar del menú Ver del Internet Explorer. (FS es la abreviatura 
de teclado.) 


| Error del archivo de comandos de Internet Explorer 


Figura 2.19. Cuadro de diálogo resultado de un error en un script. 
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CUADROS DE TEXTO Y ETIQUETAS 


Antes de seguir adelante, queremos tratar dos controles ActiveX más (un cuadro 
de texto y una etiqueta). Los nombres oficiales de estos controles son Microsoft 
Forms 2.0 TextBox y Microsoft Forms 2.0 Label. 

Un cuadro de texto se utiliza para mostrar texto o aceptar una entrada de usua- 
rio, La mayoría de los procedimientos de manejo de errores de un cuadro de texto 
procesan la información introducida en éste por el usuario. Todas las facilidades 
de edición comunes, como las abreviaturas de teclado Ctrl-X y Ctrl-V para cortar 
y pegar, son posibles. Normalmente, el límite de información que puede ser conte- 
nida en un cuadro de texto es de 32.767 caracteres. Por otra parte, una etiqueta 
sólo es para mostrar texto. La mayoría de las veces se sitúan al lado de objetos, 
como cuadros de texto, para identificar la utilidad de dichos objetos. Ocasional- 
mente, las etiquetas se utilizan para mostrar una salida. 


Cuadros de texto 


Un cuadro de texto tiene 39 propiedades disponibles, Muchas de ellas son simila- 
res a las disponibles en los botones de orden. Por ejemplo, la propiedad AutoSize 
provoca que un cuadro de texto adapte automáticamente su tamaño al texto que 
contiene. Una diferencia que hay que tener en cuenta es que en vez de tener una 
propiedad Caption, un cuadro de texto tiene una propiedad Text que controla lo 
que se muestra en el cuadro. Cuando se cambia la propiedad Font, se restablece el 
fuente de todo el texto (un cuadro de texto normal sólo puede mostrar un fuente al 
mismo tiempo). (Algunos sistemas tienen un control llamado RichTextBox que 
permite visualizar múltiples fuentes simultáneamente.) 

Una etiqueta tiene 26 propiedades. Las más significativas funcionan de la mis- 
ma forma que lo harían en un botón o en un cuadro de texto. Por ejemplo, la pro- 
piedad Caption controla lo que ve el usuario, lo mismo que hace en un botón de 
orden. A continuación se presenta una breve descripción de algunas de las propie- 
dades más comúnmente utilizadas de los cuadros de texto y las etiquetas. 


BorderStyle (cuadros de texto y etiquetas) 


La propiedad BorderStyle admite dos configuraciones posibles. El valor por de- 
fecto es 1, que muestra un borde. Si se cambia el valor de esta propiedad a 0, el 
borde desaparece. 


ScrollBars (sólo para cuadros de texto) 


La propiedad ScrollBars determina si un cuadro de texto tiene barras de desliza- 
miento horizontales o verticales. Sin barras de deslizamiento, al usuario le resulta 


A 


A 
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más difícil moverse a través de los datos contenidos en un cuadro de texto, La 
propiedad ScrollBars admite cuatro configuraciones posibles: 


Valor Significado 


0 El cuadro de texto no tiene barras de deslizamiento verticales ni horizontales. Este 
es el valor por defecto. 


1 El cuadro de texto sólo tiene barras de deslizamiento horizontales. 
2 El cuadro de texto sólo tiene barras de deslizamiento verticales. 


3 El cuadro de texto tiene barras de deslizamiento verticales y horizontales. 


MultiLine (sólo para cuadros de texto) 


MultiLine es una propiedad booleana que determina si un cuadro de texto puede 
aceptar o mostrar más de una línea. Si esta propiedad es True, se permite más de 
una línea. Cuando el usuario escriba más de una linea de información, el texto 
continuará automáticamente en la siguiente línea (a no ser que el cuadro de texto 
tenga una barra de deslizamiento horizontal). El usuario también puede emplear 
las teclas estándar para moverse a través del cuadro de texto: los cursores, Inicio, 
Fin, Ctrl-Inicio y Ctrl-Fin. 


MaxLenght y AutoTab (sólo para cuadros de texto) 


La propiedad MaxLenght determina el número máximo de caracteres que acepta- 
rá el cuadro de texto. El valor por defecto es 0, que (en contra de lo que intuiti- 
vamente pudiera parecer) significa que no hay un máximo diferente del limite de 
los 32.767 caracteres de los cuadros de texto. Cualquier configuración diferente 
de 0 limitará la capacidad del usuario para introducir datos en el cuadro de texto a 
dicho número de caracteres. La propiedad AutoTab trabaja con la propiedad 
MaxLenght. La idea es que después de que el usuario haya introducido la máxima 
cantidad de texto, VBScript le lleve automáticamente al siguiente control. Como 
se puede imaginar, esto puede ser muy conveniente (¡se podría pasar directamente 
del campo Provincia al campo Código Postal después de haber introducido 2 ca- 
racteres en el primero de ellos!). 


PasswordChar (sólo para cuadros de texto) 


La propiedad PasswordChar permite especificar los caracteres que se mostrarán 
cuando un usuario introduzca una contraseña en un cuadro de texto. (Sin embargo, 
todos los caracteres que introduzca el usuario se almacenarán internamente.) La 
convención es utilizar un asterisco (*) como carácter de contraseña. 
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Locked (sólo para cuadros de texto) 


Esta propiedad booleana evita que los usuarios cambien el contenido de un cuadro 
de texto. Si Locked está a True, los usuarios todavía pueden marcar texto, pero no 
podrán cambiarlo. (Puesto que los usuarios pueden marcar texto, todavía podrán 
utilizar las técnicas estándar para copiar información del cuadro de texto, única- 
mente no serán capaces de cambiar el texto.) 


TextAlign (cuadros de texto y etiquetas) 


Esta propiedad determina si el texto dentro del control está alineado a la izquierda, 
centrado o alineado a la derecha, 


Eventos de los cuadros de diálogo 


Un cuadro de diálogo puede responder a un máximo de 12 eventos. Por ejemplo, 
el evento Click se dispara cuando el usuario realiza una pulsación dentro del cua- 
dro. Existe incluso un evento DbIClick (doble pulsación) que se dispara cuando el 
usuario realiza una pulsación doble dentro del cuadro. Se podría escribir el si- 
guiente procedimiento de manejo de eventos para el evento DbIClick: 


Sub IDCuadroTexto_DbiClick 
MsgBox "Por favor pulse sólo una vez, no dos” 
End: Sub, 


Probablemente, los eventos más importantes para un cuadro de texto sean el 
evento Change, que se dispara siempre que el usuario cambia el contenido del 
cuadro, y el evento KeyPress, que se dispara siempre que el usuario escribe un 
carácter en el cuadro. 

Queremos darle algunas ideas de para qué se podrían utilizar estos procedi- 
mientos de manejo de eventos. Para ello, imagine que se quieren hacer las siguien- 
tes dos cosas: 


m Asegurarse de que el usuario escriba sólo digitos (0..9) en el cuadro de texto. 


m Asegurarse de que el usuario nunca copie nada que no sean números en el 
cuadro de texto. 


Lo primero sería controlado por el código del procedimiento de manejo del evento 
KeyPress. Lo segundo sería controlado por el código del procedimiento de manejo 
del evento Change. En el Capitulo 9 se contará más del evento KeyPress. 


NOTA: Aunque las etiquetas pueden responder a algunos eventos, no se suelen escribir 
procedimientos de manejo de ninguno de ellos. 
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SCRIPT WIZARD 


ActiveX Control Pad viene con una herramienta llamada Script Wizard que se 
suponía que haría el trabajo de programación a quien quisiera crear scripts irrele- 
vantes. La idea era que el Script Wizard generara automáticamente un script a 
partir de unas directivas. En nuestra opinión, Script Wizard no vale mucho. En el 
mejor de los casos, no puede hacer mucho más que crear los scripts más sencillos 
(¡que se pueden crear a mano más rápido!). Por esta razón, raramente, por no 
decir nunca, se utilizan las características de generación automática de código de 
Script Wizard. Entonces, ¿por qué molesta? Porque se volverá a él, una y otra 
vez, para ver los eventos a los que atienden los controles ActiveX. 


NOTA: FrontPage 98 también tiene un Script Wizard mucho mejor, pero todavía es pre- 
ferible hacer las cosas a mano (casi siempre es más rápido cuando uno se ha acostumbrado 
a la codificación). 


Se puede activar el Script Wizard seleccionando la opción Script Wizard desde 
el menú Tools, de forma que aparece la ventana mostrada en la Figura 2.20. 
La hoja izquierda muestra los objetos de la página Web y la hoja derecha muestra 


a Script Wizard - Pago) (VBScript) 


O 


Figura 2.20. Ventana inicial del Script Wizard. 


so 
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lo que se puede hacer con dichos objetos utilizando las características de genera- 
ción automática de código. De la misma forma que en el Explorador de Windows, 
para expandir un objeto se pulsa en el signo más (+). Si se pulsa el signo más que 
está al lado del objeto «window» en la hoja izquierda se verá el objeto expandido, 
como se muestra en la Figura 2.21. Ahora se puede ver que el objeto window 
atiende a dos posibles eventos. 

Aunque habrá que decir mucho más sobre el objeto window en el Capítulo 8, a 
continuación se presenta una breve descripción de estos dos eventos. 

El evento onLoad se dispara automáticamente cuando la página Web se carga 
en el sistema de un usuario. Esto significa que cada vez que se carga la página 
Web o se pulsa el botón Actualizar, Internet Explorer ejecuta el código que se 
haya situado en el procedimiento de manejo del evento onLoad. (No hay mucha 
diferencia entre situar el código en el procedimiento de manejo del evento onLoad 
o al principio de la sección de cabecera.) A continuación se muestra un ejemplo de 
este procedimiento de manejo de eventos: 


Sub Window_onLoad 
Nombre = InputBox("¿Cuál es su nombre?") 
MasgBox "Hola " & Nombre 

End Sub 


El evento onUnLoad se dispara automáticamente cuando la página es descar- 
gada, que ocurre siempre que se cumple una de las siguientes condiciones: 


Figura 2.21. Eventos de Windows en el Script Wizard. 
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@ Se cambia de página. 
m Se pulsa el botón Actualizar. 
m Se sale del Internet Explorer. 


Queremos llevarle a través de una sesión utilizando Script Wizard para mos- 
trarle su potencia. Generaremos algo de código y mostraremos cómo utilizarlo de 
la misma forma que su «explorador» para encontrar los eventos a los que atiende 
un control ActiveX. 


Una sencilla sesión con el Script Wizard 


Para empezar, se podría querer utilizar el ActiveX Control Pad para introducir un 
control Microsoft Forms 2.0 CommandButton (con un Caption de Púlseme) y un 
control Microsoft Forms 2.0 TextBox en un fuente HTML, como se muestra en la 
Figura 2.22. 

Se abre el Script Wizard. Como puede verse en la Figura 2.23 de la siguiente 
página, ahora hay tres objetos en la hoja izquierda. 

Pulse el signo más del objeto CuadroTexto! para revelar todos los eventos a 
los que puede responder un cuadro de texto. Se quiere escribir algo de código para 
el evento DbIClick (doble pulsación). Observe que la hoja derecha se llama «In- 
sert Actions». Esto es porque si se pulsa el signo más situado al lado de un objeto 
en la hoja derecha, se listan las acciones que el Script Wizard puede insertar en el 
fuente HTML. Por ejemplo, supongamos que se quiere que el cuadro de texto diga: 


| lcomsEcr 10="CuadroTexto1""wWIDTH=96 pr 
j002F7> 
<PARAM NAME= Various Propertyits" eS 


Figura 2.22, Fuente HTML inicial de una sesión con el Script Wizard. 
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Acuérdese de que 
en este cuadro de 
diálogo el texto no 
debe ir entre 
comillas. 


Figura 2.23. Script Wizard con múltiples objetos. 


«¡Me ha pulsado dos veces!» como respuesta a una doble pulsación. A continua- 
ción se indica cómo proceder si se quiere utilizar el Script Wizard: 


1. Asegúrese de que DbiClick está seleccionado en la hoja de la izquierda. 


2. Muestre las posibles acciones del cuaddro de texto Cuadro Texto 1 pulsan- 
do el signo más en la hoja derecha. 


3. Localice la propiedad Text, 


4. Púlsela dos veces. 


La pantalla tendrá un aspecto como el de la Figura 2.24. 

Ahora se puede escribir la cadena de caracteres que se quiera en el cuadro de 
diálogo. Cuando se pulsa OK, el Sript Wizard escribirá el código por usted. Para 
ver el código, se cambia a la opción Code View pulsando el radio botón situado en 
la parte inferior de la ventana Sript Wizard. Dicha ventana tendrá un aspecto como 
el de la Figura 2.25. 

Observe que parece que el Script Wizard haya olvidado añadir el «End Sub» 
con el que debe finalizar cada procedimiento de manejo de eventos. Bueno, ¡no es 
cierto! Si se cierra el Script Wizard pulsando OK, se verá que hay un end sub allí. 
(Véase la Figura 2.26.) 

Se ha mostrado cómo escribir a mano un procedimiento de manejo de eventos 
y cómo utilizar el Script Wizard para generarlo automáticamente. La decisión fi- 
nal es sólo suya. Creemos que es más fácil utilizar el Script Wizard para descubrir 
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Obsérvese que 
Script Wizard no 
sigue las normas 
usuales de 
utilización de 
mayúsculas y 
minúsculas que 
cualquier 
programador de 
VBScript 
experimentado 
esperaria ver: «End 
Sub». 


Figura 2.24. Cómo insertar una acción con el Script Wizard. 


todos los posibles eventos, pero que es mejor escribir a mano el procedimiento de 
manejo de eventos. 


[Sub CuadroTextol_Db1Cl1ck (Cancel) 
uadroTexto1.Text = "¡Púlseme dos veces!” 


Figura 2.25. Opción Code View en el Script Wizard. 
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BODY) 
<OBJECT 1D="BotonOrden1* WIDTH=96 HEIGHT=32 
CLASSID="CLSID:D7053240-CE69-11CD-A777-000D01143C57"> 
iseme”? 


<SCRIPT? 
<OBJECT 1D="CuadroTexto1" WIOTH=96 HEIGHT=24 
CLASSID="CLSID:BBD21 D1 0-EC42-1 1 CE-JE0D-00AADOGOOZF"> 


= Various PropertyBits" VALUE="746604571"> 
<PARAM NAME="Size" VALUE=" 2540:6535") 
<PARAM NAME ="FoniCharSet" VALUE "0> 


Figura 2.26. Resultado de la utilización del Script Wizard. 


NOTA: Como pronto verá, muchos procedimientos de manejo de eventos son como el 
del DblClick, en tanto en cuanto pueden funcionar con información o parámetros extra. 
(Verá mucho más acerca de los parámetros en los siguientes capítulos.) Para encontrar los 
parámetros que se pueden utilizar en un procedimiento de manejo de eventos, se seleccio- 
na el evento en la hoja izquierda y luego se cambia a la opción Code View. El Script Wizard 
mostrará todos los parámetros entre paréntesis en la primera línea del procedimiento de 
manejo de eventos. 


Si cree que el Script Wizard es una ayuda para escribir código, muy bien. Si 
cree que es un sustituto de la lectura de este libro, bien, ¡buena suerte! 


Capítulo 


Fundamentos 
de la programación 
con VBScript 


El último capítulo trató principalmente de los mecanismos de integración del códi- 
go VBScript con el código HTML. Támbién se vio lo fácil que era insertar contro- 
les ActiveX en las páginas Web utilizando el Microsoft ActiveX Control Pad. Es- 
peramos que se haya convencido de que no sólo es fácil personalizar una página 
Web añadiendo controles y configurando sus propiedades, sino que también es 
asombrosa la cantidad de cosas que se pueden hacer con unas pocas líneas de có- 
digo VBScript en la sección de cabecera de una página (tanto fuera como dentro 
de un procedimiento de manejo de eventos), Sin embargo, el código y los procedi- 
mientos de manejo de eventos que se han visto son todavía limitados en cuanto a 
las cosas que pueden hacer. Para poder hacer más, es necesario sentirse a gusto 
con el lenguaje de programación VBScript. Este capítulo abarca los fundamentos 
del lenguaje. En capítulos posteriores se aprenderá más sobre sus elementos más 
sofisticados. 


ANATOMÍA DE UN PROGRAMA VBSCRIPT 


Para conseguir una programación en VBScript exitosa hay que darse cuenta de 
que el código se debe dividir en dos partes: el código que se ejecuta antes de que el 
explorador del usuario cargue la página Web y el código que se activa como res- 
puesta a diversos eventos. 
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En el código que se ejecuta antes de cargar la página Web es donde se ponen 
las órdenes Document. Write que permiten la construcción de páginas Web sobre 
la marcha. Sin embargo, este tipo de código es bastante menos flexible que el có- 
digo que se activa como respuesta a eventos, 

Estos eventos pueden ser tan simples como el del explorador cargando la pági- 
na o tan complicados como el del usuario moviendo el ratón a una posición espe- 
cífica. Lo que es importante tener en cuenta es esto: si un programa VBScript se 
ve como un conjunto de piezas independientes que «despiertan» sólo en respuesta 
a los eventos que se les ha dicho que tienen que reconocer, las cosas irán general- 
mente bien. En cambio, si un script se ve como una línea entre un punto inicial y 
un punto final por la que se mueve de arriba a abajo, las cosas irán mal a menudo. 


Sentencias VBScript 


Una sentencia VBScript se debe ver como una sentencia completa; contiene todas 
las partes necesarias para expresar un pensamiento completo, 

Resulta de ayuda pensar que lo mismo que una frase se compone de palabras y 
nombres propios, una sentencia VBScript se compone de palabras del lenguaje 
VBScript y los nombres de los objetos que es necesario utilizar, como los contro- 
les ActiveX, los números, las secciones de texto, etc. Los números y los propios 
textos se llaman a menudo literales porque son interpretados literalmente por 
VBScript (es decir, no son los nombres de ninguna cosa más), También hay ver- 
bos, que en VBScript se llaman métodos. Estos son las órdenes que le indican a 
VBScript lo que tiene que hacer. Por ejemplo, la siguiente sentencia le dice a 
VBScript que aplique el método Write (verbo) al objeto Documento (nombre): 


Documento.Write "<Hl>¡Hola Mundo!</H1>" 


VBScript también tiene palabras de conexión que rellenan otras partes de la 
estructura de sus sentencias. Estas son las palabras clave como If y For. Las pala- 
bras clave también se llaman palabras reservadas porque cada una de ellas está 
reservada para un propósito específico de VBScript y no se puede utilizar para 
ninguna otra cosa. (Véase el Apéndice B para comprobar la lista de palabras reser- 
vadas de VBScript.) 


NOTA: Recuerde que las sentencias VBScript viven en el código HTML. Sin embargo, se 
puede utilizar cualquiera de las diferentes formas de escribir código HTML junto con sen- 
tencias VBScript. Por ejemplo, se puede utilizar el ActiveX Control Pad, un editor de texto 
como el Bloc de notas o incluso el Microsoft Word 97 (si los archivos se salvan como docu- 
mentos HTML). El Apéndice A explica cómo utilizar la versión 5 de Microsoft Visual Basic 
para escribir código VBScript. 


En las siguientes páginas se darán las reglas básicas y se mostrarán muchos 
ejemplos de lo que constituye una «gramática» aceptable para las sentencias 
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VBScript. No seremos totalmente minuciosos en la forma en la que podría serlo 
un científico de la informática, pero como sabe cualquiera que haya tratado de 
aprender las reglas de la gramática inglesa, ¡un enfoque demasiado formal puede 
resultar frustrante para la mayoría de nosotros! Nos gusta ver la programación 
como algo muy parecido a la escritura; desde nuestro punto de vista, es mejor 
utilizar muchos ejemplos con algunas reglas que cualquier intento de proporcionar 
un completo libro de reglas. Afortunadamente, no es necesaria una formalidad 
completa porque, como se vio en el Capítulo 2, VBScript señalará lo que se haya 
escrito que no entienda. Entonces se pueden hacer los cambios apropiados, 

Comencemos con algunas generalidades. Primero, los espacios en blanco den- 
tro de una línea son irrelevantes para VBScript. (Las líneas en blanco extra tam- 
bién son irrelevantes.) Esto significa que se puede utilizar un patrón de sangrado 
que haga más claro el código. Nos gusta utilizar dos espacios para el código situa- 
do dentro de los procedimientos de manejo de eventos, por ejemplo: 


Sub emáBoton1_Click 
MsgBox "Hola Mundo" 
End Sub 


Segundo, una sentencia VBScript no está restringida a sólo la línea física de 
una pantalla, aunque generalmente finaliza de esa forma. Si una sentencia tiene 
que ocupar más de una línea física, se sitúa un subrayado al final de la línea. El 
subrayado actúa como un carácter de continuación de línea, Sin embargo, tenga 
cuidado porque el subrayado no puede estar entre comillas. A continuación se 
muestran unos ejemplos de lo que se puede y de lo que no se puede hacer con 
subrayados para juntar dos textos: 


txtCuadrol.Text = * 
& "de subrayado." 


te es un ejemplo de utilización correcta *_ 


txtCuadrol.Text = "Este es un ejemplo de utilización incorrecta 
de subrayado." 


El problema del segundo ejemplo es que el subrayado está dentro de las comi- 
llas. Como se mencionó anteriormente, el texto situado dentro de las comillas se 
interpreta literalmente como parte del texto y no como una carácter de continua- 
ción de línea. 


NOTA: Sino se utiliza un subrayado, VBScript considera que el final de la línea está 
donde se ha pulsado un retorno de carro. Si se escribiera una línea muy larga que ocupara 
más de una pantalla, se tendría que utilizar la barra de deslizamiento horizontal para ver la 
línea completa. La mayoría de la gente utiliza el subrayado en vez de la barra de desliza- 
miento horizontal. 


La tercera y última generalización es que se pueden combinar sentencias en 
una única línea insertando dos puntos entre ellas. No se recomienda hacer esto a 
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no ser que las líneas estén estrechamente relacionadas. La mayoría de las veces los 
programas son más claros cuando cada línea corresponde a una sentencia VBScript. 


Cómo comentar el código 


El primer tipo de sentencia VBScript que queremos tratar podría parecer un poco 
extraña porque no hace nada. VBScript no interpreta estas sentencias de comenta- 
rios; en vez de eso, se ponen allí para la gente que leerá el código (incluido usted 
mismo). El propósito de las sentencias de comentarios es explicar cómo funciona 
el código. ¿Para qué se quiere hacer esto? Bueno, los programadores han aprendi- 
do de amargas experiencias que el código que escriben hoy es a menudo difícil (y 
a veces imposible) de entender incluso pocos meses después (a veces por los pro- 
pios programadores, pero especialmente por los demás). El comentario de un có- 
digo lo hace más mantenible (es decir, más fácil de modificar). 

En VBScript, las sentencias de comentarios también se llaman sentencias de 
observaciones. Hay dos formas de indicar una sentencia de observación. La más 
común es utilizar una comilla simple (*). Este no es el apóstrofe que se encuentra 
debajo de la tilde (~) sino el que se encuentra generalmente debajo de las dobles 
comillas ("). A continuación se muestra un ejemplo: 


Sub cmáBoton1_Cliek 
‘Comentarios describiendo el procedimiento de manejo de eventos 
'que debería ir aquí 

End Sub 


También se puede utilizar la palabra clave Rem, como se muestra en el si- 
guiente ejemplo: 


Sub cmdBoton1_Click 
Rem Comentarios describiendo el procedimiento de manejo de eventos 
Rem que debería ir aquí 

End Sub 


Observe que las líneas del programa se sangran en ambos casos para mejorar 
la legibilidad. 

Si se quieren añadir comentarios al final de las líneas, es más fácil utilizar las 
comillas simples porque la palabra clave Rem necesita estar precedida de dos pun- 
tos. Por ejemplo: 


TxtNombre = "" 'rellena de blancos el cuadro de diálogo 
TxtNombre = "" :Rem rellena de blancos el cuadro de diálogo 


Todo lo que hay en una línea seguido de una comilla simple, o de la palabra 
clave Rem, es ignorado. Esto es válido aunque sea una sentencia VBScript ejecu- 
table. Como se verá en el Capítulo 7, el comentario de las sentencias ejecutables 
es una técnica común de depuración de programas. 

Puesto que los comentarios se cargan con el resto de la página Web, podrían 
existir ocasiones en las que se quisiera mantener dos versiones del mismo script, 
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una con comentarios y otra sin ellos. La ventaja de la versión sin comentarios es 
que será más rápida de cargar. 


Asignación de valores a propiedades 


Una de las razones para utilizar un lenguaje de script en vez del plano y viejo 
HTML es que un lenguaje de script es dinámico (se pueden hacer cambios en una 
página Web como respuesta a eventos). Esto requiere el cambio de los valores de 
las propiedades de los objetos VBScript existentes. Ya se han visto ejemplos de 
cómo hacer esto utilizando el Script Wizard en el Active Control Pad. Por ejem- 
plo, se ha visto cómo el Script Wizard puede generar código parecido a éste para 
cambiar el texto que aparece en el cuadro de texto llamado txtCuadrol: 


TxtCuadrol.Text = "Este es el nuevo texto." 


Generalmente, si se quiere cambiar el valor de la propiedad de un objeto VB- 
Script se sitúa el nombre del objeto (es decir, el valor de su propiedad 1D), un 
punto y el nombre de la propiedad en la parte izquierda del signo igual, y luego se 
pone el nuevo valor en la parte derecha, como se muestra en el siguiente ejemplo: 


IDObjeto.propiedad = valor 


Por ejemplo, supongamos que se tiene un cuadro de texto llamado txtBlanco y 
se le quiere rellenar con blancos (es decir, borrar todo su contenido). Sólo es nece- 
sario tener una línea como ésta en un procedimiento de manejo de eventos: 


TxtBlanco.Text = ** 


El código se puede utilizar para cambiar el valor de la propiedad de un objeto 
las veces que sea necesario. Por ejemplo, si se quisiera cambiar el título de un 
botón de orden llamado cmdSiNo a No y luego a Si, se utilizarían líneas como 
éstas: 


emdSsiNo = "No" 
cmásiNo 


Un ejemplo sencillo . 


El siguiente ejemplo muestra los pasos necesarios para desarrollar un sencillo tra- 
bajo con VBScript utilizando primero el ActiveX Control Pad para añadir los con- 
troles y luego introduciendo el código directamente en la ventana de edición del 
ActiveX Control Pad. 

La utilización del ActiveX Control Pad de esta forma es actualmente uno de los 
métodos más populares de desarrollo de páginas Web que incluyen código VBScript. 

Este ejemplo tiene un botón de orden y un cuadro de texto. Cada vez que se 
pulsa el botón, VBScript añade una exclamación a lo que haya én ese momento en 
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el cuadro de texto. La Figura 3.1 muestra una imagen de cuál sería el aspecto de la 
página Web. 
Estos son los pasos que hay que seguir: 


1, Abrir el ActiveX Control Pad. 


2. Seleccionar Insert ActiveX Control del menú Edit y añadir el control Mi- 
crosoft Forms 2.0 TextBox, 


3. Cerrar la ventana Propiedades, ampliar la ventana Edit ActiveX Control 
para que abarque una gran porción de la pantalla, y luego ensanchar el cua- 
dro de texto de forma que se pueda introducir una gran cantidad de texto. 


4. Se cierra la ventana Edit ActiveX Control. 


5. En la ventana Pagel se escriben dos etiquetas HTML <BR> para añadir 
dos líneas en blanco. Luego se escribe la etiqueta <CENTER> para que el 
botón de orden que se está a punto de insertar, esté centrado. 


6. Se selecciona Insert ActiveX Control del menú Edit, y se añade un control 
Microsoft Forms 2.0 CommandButton. 


7. Utilizando la ventana Propiedades, se cambia el valor de la propiedad Cap- 
tion por ¡Enfatizar! Y la propiedad ID por cmdEnfatizar. 


8. Se cierran las ventanas Propiedades y Edit ActiveX Control. 


Figura 3.1. Página Web sencilla. 
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9. Se escribe la etiqueta </CENTER> después de la etiqueta </OBJECT> 
para terminar el centrado del botón de orden. 


10. Se cambia el título New Page por Mi primer ejemplo de código hecho a 
mano. 


El script debería parecerse bastante a éste (aunque, dependiendo de lo grande 
que se haya hecho el cuadro de texto, los valores de su anchura y altura serán 
diferentes): 


<HTML> 
<HEAD> 

<TITLE>Mi primer ejemplo de código hecho a mano</TITLE> 
</HEAD> 

<BODY> 


<OBJECT ID="CuadroTextol" WIDTH=720 HEIGHT=24 
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> 
<PARAM NAME="VariousPropertyBits”" VALUE="746604571*"> 
<PARAM NAME="Size" VALUE="19050;635%> 
<PARAM NAME="FontCharSet" VALUE="0*> 
<PARAM NAME="FontPitchAndFamily" VALUE="2"> 
<PARAM NAME="FontWeight" VALUE= 
</OBJECT> 


<BR><BR> 


<CENTER> 
<OBJECT. ID="cmdEnfatizar" WIDTH=96 HEIGHT=32 
CLASSID="CLSID:D7053240-CE69-11CD-4777-00DD01143C57"> 


<PARAM "Caption" VALUE="¡Enfatizar!*> 
<PARAM “Size” VALUE="2540;846*> 
<PARAM *FontCharSet* VALUE="0%> 
<PARAM "FontPitchAndFamily* VALUE="2*> 


<PARAM NAME="ParagraphAlign* VALUE="3"> 
<PARAM NAME="FontWeight" VALUE="0*> 
</OBJECT> 
</CENTER> 


</BODY> 
</HTML> 


Ahora ya se puede insertar el código VBScript del procedimiento de manejo 
de eventos que añade la exclamación al texto que haya en esé momento en el cua- 
dro de texto. 


1. Mover el cursor al principio de la linea que contiene la etiqueta </HEAD> 
y pulsar la tecla de retorno de carro tres veces para crear tres líneas en 
blanco. 


2. Escribir en el área en blanco que se acaba de crear el código siguiente (de- 
jando una línea en blanco encima y otra debajo del nuevo código): 
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<SCRIPT LANGUAJE="VBSCRIPT"> 
<!-- 


Sub cmdEnfatizar_Click 
CuadroTextol.Text = CuadroTextol.Text £ "!" 
End Sub 


--> 
</SCRIPT> 


Observe la línea clave: 
CuadroTextol.Text = CuadroTextol. Text á "!" 


Es necesario recordar que el signo & junta textos. Pero incluso habiendo dicho 
eso, vale la pena estudiar con más detalle esta sentencia. Obsérvese que el lado 
izquierdo de la sentencia de asignación contiene el nombre de la propiedad que 
guarda el valor, pero este mismo nombre también aparece en el lado derecho. ¿Cómo 
puede ser eso? 

Lo que sucede es que VBScript analiza primero la parte derecha de cualquier 
sentencia de asignación y obtiene un valor. Vea lo que se está haciendo como 
apuntar y almacenar el contenido actual del cuadro de texto en una especie de bloc 
en un área de su memoria. Sólo después de haber hecho esto tiene en cuenta la 
parte izquierda de la sentencia de asignación. VBScript cambia entonces el texto 
antiguo (que mantiene en su bloc) añadiendo una exclamación extra al texto que 
allí hubiera. Luego, se reasigna el nuevo texto como valor de la propiedad Text del 
cuadro. El resultado es que el texto del cuadro tiene ahora una exclamación extra. 

Todo esto puede ser un poco confuso. A algunas personas les resulta de ayuda 
recordar que la parte derecha de una sentencia de asignación está alli para poui 
cir un valor (sólo se cambia la parte izquierda). 

A propósito, si todavía no lo ha hecho, querrá probar el script, Se Ta el 
script seleccionando Save As del menú File y luego se sale del ActiveX Control 
Pad. Se abre el archivo en el Microsoft Internet Explorer, se pulsa en el cuadro de 
texto para situar allí el cursor, se introduce algún texto y luego se pulsa el botón. 
Se verá cómo se añade una exclamación al texto. 


Propiedades boolenas 


Como se describió en el Capitulo 2, las propiedades que sólo toman el valor True 
o False se llaman propiedades booleanas. Se han visto muchas propiedades booleanas 
en la ventana Propiedades del ActiveX Control Pad. Por ejemplo, las propiedades 
booleanas especifican si un botón de orden está visible y activado. La siguiente 
sentencia desactiva el botón de orden cmdBotonl: 


CmdBoton1.Enabled = False 
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El control permanece desactivado hasta que VBScript procesa la siguiente sen- 
tencia: 


CmáBotonl.Enabled = True 


La forma usual de cambiar el valor de una propiedad booleana es con el ope- 
rador Not. Supongamos que se tiene una sentencia como ésta en un procedimiento 
de manejo de eventos: 


CmdBoton1.Enabled = Not (CmáBoton1.Enabled) 


La sentencia funciona de la siguiente forma: VBScript obtiene el valor actual 
de la propiedad cmdBoton!.Enabled, y luego el operador Not invierte este valor; 
es decir, si el valor era True lo cambia a False, y viceversa. 


VARIABLES 


En VBScript las variables almacenan información (valores). Siempre que se utili- 
ce una variable, VBScript reserva un área de la memoria de la computadora para 
almacenar la información. En VBScript los nombres de las variables deben seguir 
las siguientes reglas: 


m Empezar con una letra. 

m Tener menos de 255 caracteres. 

m Incluir cualquier combinación de letras, números y subrayados. 

VBScript no distingue entre mayúsculas y minúsculas, Para VBScript, MiNom- 
bre y minombre son el mismo nombre de variable. 


La siguiente lista contiene algunos posibles nombres de variables e indicacio- 
nes de si son aceptables. 


EnPrimerLugar Aceptable 

ler No es aceptable (el primer ca- 
rácter no es una letra) 

Primer.1 No es aceptable (contiene un 
punto) 

Primer 1 Noes aceptable (incluye un es- 
pacio en blanco dentro del 
nombre) 


EsteNombreDeVariableEsLargoPeroBueno Aceptable (tiene menos de 255 
caracteres pero probablemente 
es demasiado voluminoso para 
un programa realista) 


64 APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


Véase el Apéndice B 
para conocer la lista 
de palabras 
reservadas. 


Todos los caracteres del nombre de una variable son significativos. Base es 
una variable diferente de Basel, y ambas son diferentes de Base 1. y 

La elección de nombres de variables significativos ayuda a la documentación de 
un programa y hace más fácil el inevitable proceso de depuración. Los nombres 
de variables significativos son una forma excelente de clarificar el propósito de 
muchas sentencias del programa y proporcionan a menudo la mejor forma de docu- 
mentación. 

No se pueden utilizar nombres reservados por VBScript como nombres de va- 
riables; por ejemplo, Sub no es un nombre de variable aceptable. Sin embargo, se 
pueden embeber palabras reservadas dentro del nombre de una variable. Por ejem- 
plo, Subsanar es un nombre de variable perfectamente aceptable, VBScript muestra 
un mensaje de error cuando se intenta utilizar una palabra reservada como nombre de 
variable. El que se verá más a menudo tiene el aspecto mostrado en la Figura 3.2. 


Tipos de variables 

Los programas necesitan ser capaces de manejar diferentes tipos de información. 
Puede haber enteros como 1, 2 y 3; cadenas de caracteres como «Ayuda»; núme- 
ros decimales; y los valores booleanos True y False. Los diferentes tipos de infor- 
mación se llaman tipos de datos. 


Tipos de datos básicos de VBScript 


VBScript maneja 16 tipos de variables estándar. En esta sección se describen las 
que se utilizan con más frecuencia. 


Texto 
Las variables del tipo texto almacenan caracteres de texto. Como se ha visto, la 
forma más fácil de definir una variable texto es poner el texto entre comillas. Teó- 


andos de Internet E 


Figura 3.2. Mensaje de error provocado por la utilización de una palabra reservada 
como nombre de variable. 


FUNDAMENTOS DE LA PROGRAMACIÓN CON VBSCRIPT 65 


ricamente, jlas variables texto pueden almacenar más de 2 billones de caracteres! 
En cualquier caso, una máquina específica almacenaría menos debido a restriccio- 
nes de memoria, requisitos de sobrecarga del sistema o el número de cadenas de 
caracteres utilizadas en la página Web. 


A Entera 


Las variables de tipo entero almacenan valores de enteros relativamente pequeños 
(ente -32.768 y +32.767). 


QU 


Las variables largas de tipo entero almacenan enteros entre —2.147.483.648 y 
+2.147.483.647. 


A Doble precisión 


Este es el tipo de variable VBScript utilizado para números decimales. Las varia- 
bles de doble precisión almacenan números de más de 15 decimales de precisión y 
permiten más de 300 dígitos. Los cálculos se aproximan por estas variables; sólo 
se puede confiar en los 15 primeros dígitos. Además, los cálculos con números de 
doble precisión son relativamente lentos comparados con los realizados con ente- 
ros o enteros largos. 


R 
Y Simple precisión 


Estos también son números decimales, pero VBScript generalmente no utiliza este 
formato. (De hecho, VBScript utiliza este formato sólo si se le indica de forma 
explícita, usando la función de conversión CSng que se describe posteriormente 
en este capítulo.) Las variables de simple precisión limitan los números a una pre- 
cisión de 7 decimales y no pueden tener más de 40 dígitos. 


IX Fecha 


El tipo de datos Fecha proporciona una forma útil de almacenar tanto la fecha 
como la hora de cualquier momento entre la medianoche del 1 de Enero del año 
100 hasta la medianoche del 31 de Diciembre del año 9999. Las fechas y las horas 
se deben situar entre almohadillas (+). Por ejemplo, si se está utilizando el estilo 
de fechas americano, se introduciría esto: 
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Milenio = #January 1, 2000# 


Si no se incluye una hora, VBScript asume que es medianoche. Para añadir 
una hora, se utiliza tanto el formato AM/PM como el de 24 horas: 


FinDelMilenio = fDecember 31, 1999 11:59PM4 
FinDelMilenio = fDecember 31, 1999 23:59% 


Prefijos de nombres de variables 


Muchos programadores defienden la utilización de un prefijo al principio del nombre 
de una variable para indicar el tipo de información que almacena. En la siguiente 
tabla se sugieren algunas convenciones: 


Tipo Prefijo Ejemplo 
Boolean bin binHazlo 
Fecha/Hora dtm dtmCumpleaños 
Doble precisión dbl dblTolerancia 
Entera int intEdad 

Larga Ing IngDistancia 
Simple precisión sng sngMedia 
Texto str strNombre 


El problema de hacer esto es que, a no ser que se fuerce mediante la utilización 
de una de las funciones de conversión descritas posteriormente, no se puede ase- 
gurar que VBScript almacene la información de la forma deseada. Estas conven- 
ciones no se utilizarán en este libro. 


Detalles sobre variables 


Uno de los errores más comunes de un programa es escribir mal el nombre de las 
variables. A no ser que se sigan los pasos apropiados, se encontrará que los progra- 
mas VBScript son propensos a este tipo de errores. El problema es que VBScript 
permite crear variables sobre la marcha utilizando simplemente un nombre de va- 
riable en una línea de programa. Si se escribe mal el nombre de una variable que 
ya existe en un programa, VBScript creará una variable que no tiene nada que ver 
con la que se quería trabajar (asignándola un valor por defecto que inevitablemente 
provocará errores). Esta creación implícita de variables hace muy difícil seguir la 
pista de los errores porque hay que encontrar el nombre incorrecto de la variable. 

Lo contrario es exigir la declaración de las variables en el programa antes de 
utilizarlas. En este caso, se notificarán los nombres de las variables que no están 
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escritas correctamente. Los diseñadores de VBScript dan esta opción pero no fuer- 
zan su utilización. 

La sentencia que se utiliza para declarar variables se llama, naturalmente, sen- 
tencia de declaración. Las sentencias de declaración utilizan la palabra clave 
VBScript Dim, como en el siguiente ejemplo: 


Dim ImpuestosVentas 


Se puede declarar más de una variable al mismo tiempo separándolas por co- 
mas, como se muestra en el siguiente ejemplo: 


Dim Contador, ValorFinal 


El nombre de una variable sólo se puede declarar una vez dentro de un proce- 
dimiento. 

La sentencia para exigir la declaración de las variables es Option Explicit, Es 
el primer ejemplo de una sentencia que nunca encontrará dentro de procedimien- 
tos de manejo de eventos. Se debe utilizar inmediatamente después de la etiqueta 
HTML de comentario que arranca el código VBScript: 


<SCRIPT. LANGUAJE="VBSCRIPT"> 


<l-- 


option Explicit 


Después de procesar una sentencia Option Explicit, VBScript no volverá a 
permitir que se utilicen variables que no se hayan declarado previamente. Si se 
intenta utilizar una variable que no se ha declarado aparecerá un mensaje de error 
como el mostrado en la Figura 3,3, 


comandos de Internet Explorer 


Figura 3.3. Mensaje de error provocado por la utilización de una variable que no está 
declarada. 
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Finalmente, la primera vez que se utiliza una variable, VBScript le asigna tem- 
poralmente el valor por defecto «empty». Esto significa básicamente que la varia- 
ble no tiene valor. El valor «empty» desaparece en el momento en el que se asigna 
un valor a la variable. No se debe vacilar en asignar valores iniciales a las varia- 
bles. De otra forma, se arriesga a crear un caldo de cultivo de errores difíciles de 
localizar. Por tanto, es bastante común utilizar las primeras sentencias de un pro- 
cedimiento de manejo de eventos para inicializar las variables. 


Intercambio 


Una tarea común dentro de un procedimiento de manejo de errores es el intercam- 
bio de los valores de dos variables. Supóngase que se tienen dos variable, Vieja y 
Nueva, y se intenta intercambiar sus valores de esta forma: 


Vieja = Nueva 
Nueva = Vieja 


Esto no funciona, y es importante que se entienda porqué. Lo que no funciona 
es que la primera asignación da el valor actual de Nueva a la variable Vieja, pero 
esto borra el valor anterior de Vieja. El resultado es que la segunda sentencia co- 
pia simplemente el valor original de Nueva. La solución es usar una variable tem- 
poral: 


Temp = Vieja 'copia el valor de Vieja a Temp 
Vieja = Nueva 'Vieja tiene ahora el valor de Nueva 
Nueva = Temp 'recupera el valor original de Vieja y se lo asigna a 


Nueva 


Ámbito de las variables 


Cuando los programadores tratan de la disponibilidad de una variable utilizada en 
una parte del programa, en otras partes del programa, se están refiriendo al ámbito 
de las variables. En lenguajes de programación más antiguos, en los que todas las 
variables estaban disponibles en todas las partes del programa, el mantenimiento 
de nombres de variables sencillos era siempre un problema. Si en un programa 
complicado se tenían dos variables llamadas Total, los valores de ambas podrían 
(y así lo hacían) contaminarse entre sí. 


NOTA: Se podría querer dar el mismo nombre a dos variables si tienen el mismo propó- 
sito. Por ejemplo, en un mismo programa se podrían estar totalizando dos conjuntos dife- 
rentes de números en dos procedimientos diferentes de manejo de eventos. Sería una 
buena idea llamar Total a las dos variables. 


La solución en los modernos lenguajes de programación como VBScript es 
aislar las variables dentro de los procedimientos de manejo de eventos. A no ser 
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que se organice de forma específica, el cambio del valor de una variable llamada 
Total en un procedimiento de manejo de eventos no afectará a otra variable con el 
mismo nombre en otro procedimiento. La explicación técnica de esto es que las 
variables son locales a los procedimientos, a no ser que se especifique otra cosa. 
En particular, un procedimiento de manejo de eventos normalmente no tendrá ac- 
ceso al valor de una variable que se haya cambiado en otro procedimiento de ma- 
nejo de eventos. 

Como siempre, no es una buena práctica de programación confiar en los com- 
portamientos por defecto. Si se quiere asegurar que una variable sea local a un 
procedimiento, se debe utilizar la sentencia Dim dentro del procedimiento de ma- 
nejo de eventos para declarar todas sus variables, 


Cómo compartir valores entre procedimientos 


Ocasionalmente se puede querer que el valor de una variable esté disponible en 
todo el código VBScript de un página Web. Por ejemplo, si una aplicación está 
diseñada para realizar un cálculo que involucra un único tipo de interés a la vez, 
ese tipo debería estar disponible para todos los procedimientos de la página. Las 
variables que se comparten de esta forma se llaman variables al nivel de script. 

Igual que con la sentencia Option Explicit, las sentencias de declaración de 
variables al nivel de script se ponen fuera de cualquier procedimiento de manejo 
de eventos. La mayoría de los programadores sitúan estas sentencias de declara- 
ción inmediatamente después de la sentencia Option Explicit, como se muestra en 
el siguiente ejemplo: 


<SCRIPT LANGUAJE="VBSCRIPT*"> 


Option Explicit 
Dim ImpuestosVentas "esta es una variable al nivel de script 
"los procedimientos de manejo de eventos van aquí 


--> 


</SCRIPT> 


En el ejemplo anterior: 


m El valor de la variable llamada ImpuestosVentas será visible para todos los 
procedimientos de manejo de eventos de la página Web. 


m Cualquier cambio que se haga a esta variable en un procedimiento de mane- 
jo de eventos persistirá y se mostrará a los otros procedimientos. 


El último punto significa que se tiene que tener cuidado cuando se asignan 
valores a las variables al nivel de script. Cualquier información que se pase entre 
los procedimientos de manejo de eventos puede introducir fácilmente errores de 
programación. Además, estos errores son a menudo difíciles de precisar. 
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NOTA: Debido al incremento de errores que se produce cuando se utilizan variables al 
nivel de script (o globales, como se las llama a veces), a muchos de los programadores les 
gusta utilizar un prefijo como «g» (por global) para identificar este tipo de variables. Cree- 
mos que esto es una buena práctica de programación y la adoptaremos a partir de este 
momento. De este modo, preferiríamos utilizar esto: 


Dim gImpuestosVentas 'esta es una variable al nivel de script 


Aunque la mayoría de los programadores no creen que es una buena idea, se 
puede utilizar el mismo nombre de variable tanto para una variable local como 
para otra al nivel de script. Una sentencia Dim contenida en un procedimiento de 
manejo de eventos tiene preferencia sobre una declaración al nivel de script. De 
esta forma, la duplicación de un nombre hace que la variable al nivel de script sea 
invisible al procedimiento. Esto significa que se pierde la capacidad de utilizar la 
información contenida en la variable al nivel de script. VBScript no indica si una 
variable al nivel de script ha sido declarada con el mismo nombre como variable 
local. Esta es una razón más para asegurarse de que las variables que se quiera que 
sean locales sean realmente locales, declarándolas dentro del procedimiento. Tam- 
bién se debe incentivar más la utilización del prefijo «g» para identificar las varia- 
bles al nivel de script. 


CUADROS DE ENTRADA 


La forma normal de aceptar datos de una aplicación VBScript es la utilización de 
un cuadro de texto. Sin embargo, hay otra técnica que es útil ocasionalmente. Un 
cuadro de entrada es un cuadro de diálogo que el usuario debe cerrar antes de 
continuar. Esta es la ventaja principal de la utilización de un cuadro de entrada 
sobre un cuadro de texto; a veces es necesario insistir que el usuario introduzca 
algún dato necesario antes de dejarle continuar trabajando con el resto de la pági- 
na Web. La desventaja es que las dimensiones de un cuadro de entrada las fija 
VBScript. La Figura 3.4 muestra un ejemplo de un cuadro de entrada. 

Como se puede ver, en VBScript los cuadros de entrada tienen una barra de 
título y cuatro componentes. El primero es el indicativo, en este caso, «Por favor, 


Visual Basic 


Figura 3.4. Cuadro de entrada. 
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introduzca su nombre». Siempre hay dos botones de orden, denominados OK y 
Cancel. Finalmente, en la parte inferior hay un cuadro de texto. VBScript siempre 
sitúa el cursor aquí. Para presentar el cuadro de entrada de la Figura 3.4 se utiliza 
esta linea de código: 


SuNombre = InputBox("Por favor, introduzca su nombre") 
Este es el modelo general para mostrar un cuadro de entrada: 
VariableTexto = InputBox(indicativo) 


El usuario escribe lo que quiere en el cuadro de texto. Cuando se pulsa el retor- 
no de carro o el botón OK se provoca que todo lo que está en el cuadro de texto 
pase a ser el valor de la variable texto. Pulsando la tecla Esc o el botón Cancel se 
provoca que VBScript asigne la cadena de caracteres vacía a la variable. La cade- 
na de caracteres vacía puede verse como un contenedor; es simplemente una cade- 
na de caracteres sin caracteres y se representa por dos dobles comillas sin espacio 
entre ellas (""). 

Los cuadros de entrada se pueden mejorar. Por ejemplo, la siguiente línea de 
código muestra el cuadro de entrada con título de la Figura 3.5: 


SuNombre=InputBox("Por favor, introduzca su nombre", "Bienvenido a 
VBScript") 


La segunda cadena de caracteres es lo que ve el usuario en la barra de título. 

Se pueden especificar algunos criterios para un cuadro de entrada. El rango 
completo de posibilidades se muestra en la documentación de VBScript, que 
se puede encontrar en el CD que se acompaña. (Se abre el archivo Vbstoc,htm en 
la carpeta VBSdocs. Para tener la versión más actualizada de la documentación 
VBScript, véase la página Web VBScript de Micrososft.) La Figura 3.6 muestra 
la página InputBox. 

La sintaxis de la función InputBox es la siguiente (esta función se estudiará 
con más detalle en el Capitulo 5): 


VBScript 


Figura 3.5. Cuadro de entrada con un título. 
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Microsoft® Viruai Basic Serpong Edition 


InputBox Function 
Spe Also 


Description 


Displays a prompt in a dialog box, waits for the user to input text or click a 
button, and retums the contents of the text box. 


Syntax 
InputBax(promprl, title], defautl[, xoos]l, ypos11, heipfie, context]) 


Figura 3.6. Página InputBox de la documentación de VBScript. 


VariableTexto = InputBox(indicativol, título][, valorPorDefecto] l, 
posiciónX] [. posiciónY)[, archivoAyuda, contexto)]) 


Analicemos la sintaxis anterior. Primero, los términos en itálica son contene- 
dores descriptivos; cada uno de estos términos se sustituye por datos particulares. 
Por ejemplo, se puede sustituir «Por favor, introduzca su nombre» por indicativo. 
Segundo, los corchetes indican que lo que hay dentro de ellos es opcional; estos 
corchetes no se incluyen en el código. Esto significa que la siguiente sintaxis es la 
minima exigida por la función InputBox: 


VariableTexto = InputBox(indicativo) 
También se podría utilizar cualquiera de las siguientes líneas: 


VariableTexto = InputBox(indicativo, título) 

VariableTexto = InputBox(indicativo, título, valorPorDefecto) 

VariableTexto = InputBox(indicativo, título, valorPorDefecto, 
posiciónX) 

VariableTexto = InputBox(indicativo, título, valorPorDefecto, 
posiciónX, posiciónY) 

VariableTexto = InputBox(indicativo, título, valorPorDefecto, 
posiciónx, posiciónY, archivoAyuda, contexto) 


Obsérvese que puesto que archivoAyuda y contexto están contenidos en los 
mismos corchetes, deben incluirse o excluirse juntos. 
Puesto que la documentación VBScript es a veces demasiado formal y conden- 
sada, explicaremos lo que proporciona. Para empezar, los términos situados den- 
tro de los paréntesis se llaman parámetros o argumentos. 
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El parámetro indicativo es una cadena de caracteres (texto entre comillas) o 
una variable texto (el nombre de una variable que contiene texto) cuyo valor muestra 
VBScript en el cuadro de diálogo. Está limitada a aproximadamente 1024 caracte- 
res. La cadena de caracteres indicativo continuará en la siguiente línea cuando sea 
muy larga, aunque si se quiere, se pueden forzar saltos de línea utilizando los ca- 
racteres Chr(13) y Chr(10) que se tratarán en la siguiente sección. 

El parámetro título se vio en el ejemplo anterior. Este parámetro contiene la 
cadena de caracteres utilizada en la barra de título. Si se omite este parámetro, 
VBScript pone únicamente «Visual Basic» en la barra de título, 

El parámetro valorPorDefecto permite mostrar un texto por defecto en el cua- 
dro de texto donde el usuario introducirá la información. Si se omite este paráme- 
tro, el cuadro de texto comienza en blanco. 

Los parámetros posiciónX y posición Y son enteros o expresiones que VBScript 
puede evaluar como enteros. El parámetro posiciónX especifica la distancia en 
«twips» entre el lado izquierdo del cuadro de entrada y el lado izquierdo de la 
pantalla. El parámetro posición Y especifica la distancia en «twips» entre la parte 
superior del cuadro de entrada y la parte superior de la pantalla. Un «twip» es la 
veinteava parte del punto de una impresora. (Los puntos se utilizan para medir 
fuentes. Una pulgada tiene 1440 «twips».) Si se omite el parámetro posiciónX, el 
cuadro de entrada estará centrado horizontalmente; si se omite el parámetro posi- 
ciónY, se mostrará en la parte inferior de la pantalla. 

Los parámetros archivoAyuda y contexto se utilizan juntos cuando se quiere 
que aparezca un botón Help en el cuadro de entrada (un tema avanzado que no se 
tratará en este libro). 

La notación presentada en la sintaxis de la sentencia InputBox podría parecer 
críptica al principio, pero es una buena idea ir acostumbrándose a ella. Es, después 
de todo, la notación utilizada en la documentación de VBScript. Con esta nota- 
ción, como se mencionó anteriormente, cualquier cosa que esté entre corchetes es 
opcional. Por ejemplo, observe que los paréntesis, que son exigidos, están fuera de 
los corchetes. A continuación, observe las comas que separan los parámetros. 
Aunque están dentro de los corchetes, y por tanto son opcionales, hay que tener en 
cuenta un detalle. Si se quiere saltar uno de los parámetros, todavía se tiene que 
utilizar una coma como separador. ¿De qué otra forma sabría VBScript donde va 
cada parámetro? Por ejemplo, la siguiente línea parece que contiene una coma 
extra: 


Color = InputBox("¿Color favorito?", "Bienvenido a VBScript", , 100, 
100) 


Esta línea asigna al indicativo del cuadro de entrada «¿Color favorito?» y a la 
barra de título «Bienvenido a VBScript». También empieza mostrando el cuadro 
de entrada sin una cadena de caracteres por defecto y le aleja del centro de la 
pantalla llevándolo hacia la parte superior. Observe la coma que marca el lugar 
donde iría la cadena de caracteres por defecto. 
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CARACTERES (CÓDIGOS ANSI) 


Una computadora no tiene un tipo de memoria para texto y otro tipo para números. 
Todo lo que se almacena en la memoria de una computadora se transforma en núme- 
ros. El programa es el que sigue el rastro de si los patrones de la memoria son, o no, 
códigos de texto. El alfabeto con el que se trasladan textos a números dentro de 
VBScript es el llamado alfabeto ANSI (American National Estandar Institute, Instituto 
americano de normas nacionales). El alfabeto ANSI asocia un carácter que se muestra 
en pantalla, o un carácter de control, a un número de 0 a 255. (Un carácter de con- 
trol no es realmente un carácter pero provoca que se realicen ciertas acciones. Por 
ejemplo, el carácter campana hace que pite la computadora.) Los caracteres de con- 
trol y las teclas especiales, como el tabulador, tienen números menores de 32, 

Cada fuente tiene un único conjunto de códigos ANSI. Aunque los códigos 
ANSI son siempre números del O al 255, los caracteres que representan estos nú- 
meros varían entre los diferentes fuentes. El valor de la función Chr(n) es el carác- 
ter cuyo código ANSI es n en el fuente que se utiliza en ese momento. Por ejem- 
plo, la siguiente sentencia muestra el carácter á si se está utilizando el fuente Times 
New Roman, pero muestra K si está utilizando el Wingdings: 


TxtCuadrol. Text = Chr(227) 


Como se mencionó durante el tratamiento de la función InputBox, un uso co- 
mún de la función Chr es añadir saltos de línea a los textos. El valor de Chr(13) es 
un retorno de carro (mueve el cursor una línea hacia abajo), y el valor de Chr(10) 
es un avance de línea (mueve el cursor al principio de la línea). La combinación de 
los dos produce lo que normalmente se obtiene cuando se pulsa el retorno de ca- 
rro, como se muestra en el siguiente ejemplo: 


Msg = "Esto estará en la línea 1" 
Msg = Msg á Chr(13) £ Chr(10) & "Esto estará en la línea 2" 
Input Box (Msg) 


NOTA: VBScript tiene una constante ya embebida para la combinación Chr(13) 8 Chr(10). 
(Para saber más vea a continuación las constantes incorporadas.) Se puede utilizar vbCrLf 
en su lugar. Así, una versión más corta de la segunda línea del ejemplo anterior es: 


Msg = Msg á vbCrLf á "Esto estará en la línea 2" 


CONSTANTES 


Un programa es más fácil de depurar cuando es legible. Intente evitar el síndrome 
«ojos velados», demasiado común cuando un programa tiene montones de núme- 
ros misteriosos esparcidos por todo alrededor. Es mucho más fácil leer una línea 
de código como la siguiente 


NÚMEROS 
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Impuesto = txtPrecioActual.Text*ImpuestoVentas 


que identifica el cuadro de texto y utiliza un término descriptivo para el impuesto 
de las ventas, que si se utiliza 


Impuesto = txtCuadrol.Text*.825 '.825 ¿qué es eso? 
'y, ¿qué es txtCuadrol? 


Incluso aunque ambos tengan el mismo efecto. 

Los lenguajes de programación tienen el concepto de constantes para ayudar a 
prevenir el sindrome «ojos velados». La idea es que una vez que se haya definido 
una constante, ésta no pueda (incluso por error) cambiarse posteriormente en el 
programa. La palabra clave para indicar a VBScript que algo es una constante es 
Const, como se muestra en el siguiente ejemplo: 


Const PI = 3.14159 


También se podrían crear cadenas de caracteres constantes utilizando la misma 
palabra clave: 


Const NOMBRE_USUARIO = "M.Isabel Rodriguez" 
Const SCRIPT_LANGUAJE = *VBScript" 


(Utilizaremos la convención de que los nombres de las constantes estén en 
mayúsculas.) Si una constante se sitúa dentro de un procedimiento de manejo de 
eventos, sólo dicho procedimiento puede verla. Si una constante se sitúa inmedia- 
tamente después de la etiqueta HTML de comentario (donde empieza el código 
VBScript), todo el código VBScript puede verla y utilizarla. 

VBScript viene con muchas constantes útiles. Estas son constantes como vbRed 
y vbYellow para colores, y vbSunday y vbMonday para funciones de fecha. (Ob- 
viamente, VBScript no sigue la convención de que las constantes deben ir en ma- 
yúsculas.) También existe la constante vbCrLf, tratada anteriormente, que se pue- 
de utilizar en vez de la combinación Chr(13)8Chr(10). Se debería consultar la 
documentación de VBScript para conocer la lista completa de las constantes in- 
corporadas. 


En VBScript un número no puede utilizar comas para señalar millares. Puede te- 
ner un punto decimal, a no ser que se quiera que sea un entero. (Y una vez que 
tiene un punto decimal, deja de ser un entero.) Si fuera necesario asignar un valor 
numérico a una variable, el número se situaría en la parte derecha de la sentencia 
de asignación, como se muestra en este ejemplo: 


ImpuestoVentas = .0825 
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Operaciones con números 


La siguiente tabla proporciona los símbolos de las cinco operaciones aritméticas 
fundamentales y de dos operaciones especiales que se necesitarán ocasional- 
mente: 


Operador Operación 


+ Suma 


- Resta (y para denotar números negativos) 


E Multiplicación 

/ División 

A Exponenciación 

\ División entera 

Mod Resto de una división entera 


El símbolo de la división ordinaria (/) devuelve un valor decimal. El símbolo 
de la división entera (\) desprecia el resto para devolver un entero. Por ejemplo, 
7\3 = 2, Puesto que la división normal siempre produce un número decimal, la 
división entera o el operador Mod se utilizan cuando se quiera trabajar realmente 
con enteros. 


NOTA: VBScript puede formatear números decimales. (Véase el siguiente capítulo.) A no 
ser que se utilicen una de estas técnicas de formateo, el resultado del cálculo tendrá inevi- 
tablemente demasiados digitos después del punto decimal. 


El operador Mod devuelve el resto de la división entera. Por ejemplo, 7 Mod 3 = 1. 
Cuando un entero se divide exactamente por otro no hay resto, de forma que el 
operador Mod devuelve 0: 8 Mod 4 = 0. 

El término que denomina la combinación de números, variables y operadores 
de los que VBScript puede extraer un valor es expresión numérica. 


A Aritmética de las variables de tipo fecha 


VBScript facilita la realización de cálculos con variables de tipo fecha. Si se suma 
o se resta un entero, se está sumando o restando los días representados por el ente- 
ro. La suma de una fracción cambia la hora dentro de un día. Se puede utilizar la 
función Now para obtener la fecha y la hora actuales. 

El siguiente ejemplo muestra la fecha y la hora de hoy y luego muestra la fecha 
y la hora de hace 10.000 días: 
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Dim Hoy, HaceMuchoTiempo 


Hoy = Now 
MsgBox (Hoy) 

HaceMuchoTiempo = Hoy — 10000 
MsgBox (HaceMuchoTiempo) 


(Véase el Capítulo 5 para conocer más acerca de las funciones que tiene VB- 
Script para trabajar con fechas.) 


Paréntesis y precedencia 


Cuando se realizan cálculos, se tienen dos formas de indicar el orden en el que se 
quiere que se realicen las operaciones. La primera forma es utilizando paréntesis. 
Los paréntesis permiten especificar fácilmente el orden en el que se deben realizar 
las operaciones. La expresión 3 + (4 * 5) da como resultado 23 porque VBScript 
hace primero la operación de dentro del paréntesis (4 * 5) y sólo después le suma 3. 
Por otra parte, (3 + 4) * 5 da como resultado 35 porque VBScript suma 3 y 4 y sólo 
después multiplica por 5. 

VBScript permite evitar los paréntesis, proporcionando las reglas que determi- 
nan la precedencia de las operaciones matemáticas. Por ejemplo, la multiplicación 
tiene precedencia sobre la suma. Esto significa que 3 +4 * 5 es 23 en vez de 35 
porque la multiplicación (4 * 5) se realiza antes que la suma. 

La siguiente lista muestra la jerarquía de las operaciones aritméticas: 


1. Negación (convirtiendo un número en negativo). 
2. Exponenciación. 

3, Multiplicación y división. 

4. División entera y la operación resto (Mod). 

5. Suma y resta. 


Por ejemplo, el resultado de —4”2 es 16 porque VBScript primero realiza la 
negación (-4) y sólo después hace la exponenciación. 

La jerarquía anterior se tiene que ver como niveles de precedencia. Las operacio- 
nes del mismo nivel se realizan de izquierda a derecha, de modo que el resultado 
de 96/4 * 2 es 48. Puesto que la división y la multiplicación están al mismo nivel, 
primero se realiza la división, que devuelve 24, y luego se realiza la multiplica- 
ción. En cambio, el resultado de 96/42 es 6. Esto es porque la exponenciación se 
realiza primero, produciendo 16, y únicamente después se realiza la división, 

Para mostrar lo oscuro que pueden resultar los programas utilizando la jerar- 
quía de operaciones, intente descubrir lo que VBScript haría con la siguiente ex- 
presión: 


AL S ee l 
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Esto es lo que sucede: primero se procesa el exponente (2 ^3 = 8), luego se 
realiza la multiplicación y la división de izquierda a derecha (4 * 2 = 8; 16 / 8 = 2), 
y luego se realiza la suma (8 + 2 + 8 = 18). 

¡Ejemplos como este deberían convencernos de que la utilización de parénte- 
sis hace que los programas sean más claros! 


Más sobre números en VBScript 


Si se ha intentado cualquier cálculo con números muy grandes en VBScript, pro- 
bablemente se haya descubierto que a menudo el programa no muestra números 
grandes sino un pequeño número de dígitos después del punto decimal. Incluso 
ignorando la abundancia de dígitos, cuando se pide a VBScript que muestre núme- 
ros grandes se puede observar algo extraño. No aparecen montones de ceros. En 
su lugar utiliza una variación de la notación cientifica. Por ejemplo, supongamos 
que se utiliza la siguiente sentencia para mostrar un 1 seguido de 25 ceros: 


TxtCuadrol.Text + 10 ^ 25 


Lo que se ve es 1E+25. Si no está familiarizado con esta notación, piense que 
E+ tiene el significado de «mueva el punto decimal a la derecha, añadiendo tantos 
ceros como fuera necesario». El número de posiciones que hay que moverlo es 
exactamente el número que sigue a E. Si a E le sigue un número negativo, el punto 
decimal se mueve hacia la izquierda. Por ejemplo, 2.1E-5 devuelve .000021. Si 
fuera conveniente, se podría introducir un número con la notación E; a VBScript 
le da igual que se introduzca 1000, 1E3 o 1E+3. 


Conversiones de tipo 


Ocasionalmente, es necesario indicar a VBScript que un tipo fecha es algo dife- 
rente de lo que aparenta ser, es decir, una cadena de caracteres en vez de un núme- 
ro. Por ejemplo, VBScript interpretaría un código postal como un número. (La 
cadena de caracteres «12345» es diferente del número 12345.) Se puede (asumiendo 
que tenga sentido) modificar la forma en la que VBScript piensa que se debería 
ver la información almacenada en una de sus variables. (Por «tener sentido» se 
entiende que no se puede esperar convertir una cadena de caracteres en un núme- 
ro, por ejemplo, aunque siempre se pueda convertir un número en una cadena de 
caracteres.) 

Esto se hace con una función de conversión. La tabla de la página siguiente 
resume estas funciones. (Aparecen dos tipos que todavía no se han visto: Moneda 
y Byte. Se explicarán en breve.) 

Por ejemplo, la siguiente línea asegura que VBScript vea el código postal como 
un texto y no como un número: 


CodigoPostal = CStr (22203) 
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Función de conversión Qué hace 

Cint Convierte una expresión a un entero, redondeándolo si fuera 
necesario 

CLong Convierte una expresión a un entero largo, redondeándolo si 
fuera necesario 

CSng Convierte una expresión a un número de simple precisión 

CDbl Convierte una expresión a un número de doble precisión 

CCur Convierte una expresión a una variable de tipo moneda 

CStr Convierte una expresión a una cadena de caracteres 

CBool Convierte una expresión a un valor booleano (True o False) 

CByte Convierte una expresión a una variable del tipo Byte 

CDate Convierte una expresión a una variable de tipo fecha 


El tipo Byte no se suele utilizar en VBScript; simplemente permite empaquetar 
números pequeños (de O a 255) en el mínimo espacio de memoria posible. En 
cambio, el tipo moneda es interesante y útil. El tipo moneda permite utilizar núme- 
ros con mucha mayor precisión de la que es posible incluso en los tipos de doble 
precisión o larga. Este grado de precisión se necesita a menudo para manejar tran- 
sacciones financieras. Por ejemplo, cuando se utiliza el tipo de doble precisión, 
teóricamente es posible tener una cuenta a cero con .01, ¡lo que hace infeliz a 
mucha gente! Con el tipo moneda, este tipo de error es prácticamente imposible. 
Sin embargo, la contrapartida es que los cálculos con el tipo moneda son los más 
lentos de todos. Por esto, VBScript sólo utiliza este tipo si se le indica explícita- 
mente, como se muestra en el siguiente ejemplo: 


BalanceDeMiTalonario = Ccur (1000.01) 


UN PROGRAMA SENCILLO: UNA CALCULADORA DE HIPOTECAS 


Ya se ha visto lo suficiente de VBScript como para escribir algún programa real- 
mente útil. Este ejemplo, que está en el archivo Hipoteca.htm del CD que se acompa- 
ña, es una calculadora de hipotecas. No será la forma más elegante de escribir un 
programa que calcule hipotecas, pero servirá para mostrar el progreso realizado. 

El programa proporciona tres cuadros de texto para que los usuarios puedan 
introducir la cantidad de la hipoteca, el tipo de interés y el período en años. Enton- 
ces, el programa calcula los pagos mensuales utilizando una fórmula estándar. 

Para crear este ejemplo desde el principio, lo primero que hay que hacer es 
diseñar la página Web. La Figura 3.7 muestra la página con cuatro etiquetas, cua- 
tro cuadros de texto y un botón de orden. Se utilizan los tamaños por defecto de 
todos los controles. 
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Figura 3.7. Calculadora de hipotecas. 


La siguiente tabla lista los controles ActiveX en el orden que se deben añadir a 
la página Web y describe los valores de las propiedades que hay que modificar. 


Control ActiveX Propiedad Valor 
Micrososft Forms 2.0 Label Caption Cantidad 

ID Etiqueta! 
Micrososft Forms 2.0 TextBox ID txtCantidadHipoteca 
Micrososft Forms 2.0 Label Caption Tipo de interés 

1D Etiqueta2 
Micrososft Forms 2.0 TextBox ID txtTipolnteres 
Micrososft Forms 2.0 Label Caption Periodo 

1D Etiqueta3 
Micrososft Forms 2.0 TextBox ID txtPeriodoHipoteca 
Micrososft Forms 2.0 Label Caption Cuota Mensual 

ID Etiqueta4 
Micrososft Forms 2.0 TextBox ID txtCuotaMensual 
Micrososft Forms 2.0 CommandButton Caption Calcular 


ID cmdCalcular 


FUNDAMENTOS DE LA PROGRAMACIÓN CON VBSCRIPT 81 


El código para calcular el pago mensual de la hipoteca es un poco más compli- 
cado de lo que podría suponerse. Esta es la fórmula: 


Cuota = Principal * InteresMensual / (1-(1/(1+InteresMensual) 
(Años * 12)) 


La variable InteresMensual es el tipo de interés anual dividido por 12. Puesto 
que la introducción de esta fórmula es propensa a errores, en el ejemplo se dividirá 
en un numerador y en un denominador. Este es el archivo HTML completo: 


<HTML> 
<HEAD> 


<TITLE>Calculadora de hipotecas en VBScript</TITLE> 
<SCRIPT LANGUAGE="VBSCRIPT*> 


Option Explicit 


Sub cmácalcular_Click 
"Calcula las cuotas mensuales de la hipoteca 
"utilizando la fórmula 
'Principal*InteresMensual/(1-(1/1+InteresMensual)”(Años*12)) 


Dim Anios, Principal 

Dim Porcentaje, InteresMensual 
Dim Numerador, Denominador 
Dim Cuota 


'Obtiene información 

Anios = txtPeriodoHípoteca.Text 
Principal = txtCantídadKipoteca.Text 
Porcentaje = txtTipolnteres.Text / 1000 
InteresMensual = Porcentaje/12 


Numerador = Principal * InteresMensual 
Denominador = 1 - (1 / (1 + InteresMensual)) ^ (Anios * 12 
Cuota = Numerador / Denominador 
txtCuotaMensual.Text = Cuota 
End Sub 


--> 


</SCRIPT> 


</HEAD> 
<BODY> 


<OBJECT ID="Etiquetal" WIDTH=96 HEIGHT=24 

CLASSID="CLSID:978C9E23-D4BO-11CE-BF2D-ODAA003F40D0"> 
<PARAM NAME="Caption" VALUE="Cantidad"> 

"Size" VALUE="2540;635*> 

*FontCharSet” VALUE="0"> 

<PARAM NAME="FontPitchAndFamily* VALUE="2*> 

<PARAM NAME="FontWeight" VALUE="0*> 


</OBJECT> 
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<OBJECT ID="txtCantidadHipoteca" WIDTH=96 HEIGHT=24 
*CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> 
VariousPropertyBits" VALUE="746604571"> 
Size" VALUE="2540;635"> 
FontCharSet" VALUE="0"> 

<PARAM NAME="FontPitchAndFamily" VALUE= 

<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 


<BR><BR> 


<OBJECT ID="Etiqueta2*” WIDTH=96 HEIGHT=24 
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"> 
<PARAM NAM] Caption" VALUE="Tipo de Interés"> 
<PARAM NAME="Size" VALUE="2540;635"> 
<PARAM NAME="FontCharSet" VALUE="0*> 
<PARAM NAME="FontPitchAndFamily" VALUE="2"> 
<PARAM NAME="FontWeight" VALUE="0*> 
</OBJECT> 


<OBJECT ID="txtTipolnteres" WIDTH=96 HEIGHT=24 
CLASSID="CL5ID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> 
<PARAM NAME="VariousPropertyBits”" VALUE="746604571"> 
<PARAM NAME="Size" VALU! 2540;635"> 
<PARAM NAME="FontCharSet" VALUE="0"> 
<PARAM NAME="FontPitchAndFamily" VALUE="2*"> 
<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 


<BR><BR> 


<OBJECT ID="Etiqueta3" WIDTH=96 HEIGHT=24 
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"> 
<PARAM NAME="Caption* VALUE="Periodo"> 
<PARAM NAME="Size" VALUE="2540;635"> 
<PARAM NAME="FontCharSet" VALUE="0"> 
<PARAM NAME="FontPitchAndFamily" VALU 
<PARAM NAME="FontWeight*" VALUE="0"> 
</OBJECT> 


<OBJECT ID="txtPeriodoKHipoteca" WIDTH=96 HEIGHT=24 
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> 
<PARAM NAME="VariousPropertyBits" VALUE="746604571"> 


<PARAM Size" VALUI] 2540;635*> 
<PARAM FontCharSet" VALUE="0*> 
<PARAM FontPitchAndFamily" VALUE="2"> 
<PARAM FontWeight" VALUE="0"> 
</OBJECT> 
<BR><BR> 


<OBJECT ID="Etigueta4” WIDTH=96 HEIGHT=24 
CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-D0AA003F40D0"> 
<PARAM NAME="Caption" VALUE="Cuota Mensual*> 
<PARAM NAME="Size" VALUE="2540;635"> 
<PARAM NAME="FontCharSet" VALUE="0"> 
<PARAM NAME="FontPitchAndFamily" VALUE 
<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 
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<OBJECT ID="txtCuotaMensual" WIDTH=96 HEIGHT-24 
CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> 
<PARAM NAME="VariousPropertyBits" VALUE="746604571"> 
<PARAM NAME="Size" VALUE="2540;635"> 
<PARAM NAME="FontCharSet" VALUE="0*> 
<PARAM NAME="FontPitchAndFamily" VALUE="2"> 
<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 


<BR><BR> 
<CENTER> 


<OBJECT ID="cmáCalcular" WIDTH=96 HEIGHT=32 
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143057"> 
<PARAM NAME="Caption*" VALUE="Calcular"> 
<PARAM NAME="Size" VALUE="2540;846"> 
<PARAM NAME="FontCharSet" VALUE="0"> 
<PARAM NAME="FontPitchAndFamily" VALUE="2"> 
<PARAM NAME="ParagraphaAlign" VALUE="3"> 
<PARAM NAME="FontWeight" VALUE="0"> 
</OBJECT> 


</CENTER> 


</BODY> 
</HTML> 


Es bastante largo, ¿no? Por esta razón, a partir de ahora no se volverá a dar el 
código HTML completo. Se asumirá que se puede obtener del CD que se acompa- 
ña. En su lugar, se mostrarán sólo las partes importantes del código. 


Mejoras en la calculadora de hipotecas 


Hay muchas formas de mejorar la calculadora de hipotecas. Una forma es librarse 
de los números inútiles que se muestran después del punto decimal en las cuotas 
mensuales. Estos se verán si se abre el archivo del programa en el Internet Explo- 
rer; se introduce una cantidad, un tipo de interés y un período; y luego se pulsa el 
botón Calcular. Otra mejora importante sería hacer el programa «a prueba de ba- 
las». Los usuarios sin experiencia introducen a menudo información de forma equi- 
vocada. Se podría querer evitar la introducción de todo lo que no fueran dígitos, 
por ejemplo. También se podría hacer el programa más amigable, permitiendo que 
los usuarios introdujeran comas o signos de dólar en la cantidad de la hipoteca. En 
el siguiente capítulo se verá cómo escribir el código necesario para hacer esto. 

Sin embargo, suponga por ahora que se quiere añadir un botón de orden que 
aumente el tipo de interés en un 1/8 por 100 y luego rehaga los cálculos. (También 
se podría añadir un botón de orden que disminuyera el tipo de interés.) 

Se va hacia atrás en la página Web y se añade otro botón de orden. Se cambia 
la propiedad ID del botón por cmdAumenta y la propiedad Caption por Aumenta, 
Se añade el siguiente sencillo procedimiento de manejo de eventos, que se ejecu- 
tará cuando se pulse el nuevo botón: 
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Sub cmdAumenta_Click 
TxtTipolnteres.Text = txtTipolnteres.Text + .125 
CmdCalcular Click 

End Sub 


Eche un vistazo a la siguiente sentencia clave: 
CmáCalcular Click 


Este es el primer ejemplo en el que se observa que un procedimiento de mane- 
jo de eventos utiliza (el termino técnico es llama) a otro procedimiento de manejo 
de eventos. Según aumenta la sofisticación de los programas, los procedimientos 
de manejo de evento se van relacionando cada vez más entre sí. El Capítulo 6 trata 
esto con profundidad. Lo que sucede aquí es que cuando VBScript llama al proce- 
dimiento cmdCalcular_Click escrito anteriormente, se utiliza el contenido actual 
de los cuadros de texto. Puesto que la siguiente línea cambia directamente el con- 
tenido del cuadro de texto, el procedimiento de manejo de eventos emdCalcular- 
Click tiene nuevos datos con los que trabajar: 


TxtTipolnteres.Text = txtTipolnteres.Text + .125 


Como indica este ejemplo, a un procedimiento de manejo de eventos se le lla- 
ma utilizando su nombre. A los procedimientos de manejo de eventos más compli- 
cados (aquellos que tienen parámetros) se les sigue llamando utilizando sus nom- 
bres (tan sólo es necesario suministrar los parámetros convenientes). 


Capítulo 


Control del flujo 
del programa 


Dos de las cosas más útiles que pueden hacer las computadoras son repetir miles 
de operaciones rápidamente y cambiar lo que están haciendo en función de las 
entradas del usuario. 

Este capítulo muestra dos características de VBScript (y de la mayoría de los 
lenguajes de programación): bucles y sentencias condicionales. Un bucle permite 
que un programa repita operaciones; una sentencia condicional permite que un 
programa realice diferentes acciones dependiendo de si una condición, como la de 
que el usuario haya introducido información requerida en un cuadro de texto, es 
cierta o falsa. 


REPETICIÓN DE OPERACIONES (BUCLES) 


En la programación, como en la vida real, se podría querer repetir una operación 
hasta que ocurra una de las siguientes situaciones: 


m La operación se ha repetido un número fijo de veces. 
m Se ha alcanzado un objetivo predeterminado. 


m Han cambiado ciertas condiciones iniciales. 


Para la primera situación se utiliza un bucle determinado, y para las otras, dos 
tipos diferentes de bucles indeterminados. 
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Bucles determinados 


Hay veces en las que es necesario tener diferentes niveles de cabeceras en una 
página Web. Se podría escribir código como éste: 


<Hl>Este es un nivel de cabecera 1</H1> 
<H2>Este es un nivel de cabecera 2</H2> 


Sin embargo, combinando el método Document. Write con un poco de código, 
esto se puede hacer automáticamente. Antes de mostrar cómo, comenzaremos con 
un ejemplo más sencillo. Cuando la página Web arranque, se mostrará una lista de 
números del 10 al 1 de forma descendente (contando hacia atrás) seguido de un 
cuadro de mensaje que diga: «¡Despegue!». La forma más sencilla de hacer eso es 
situar las siguientes líneas de código en la sección cabecera: 


For I = 1 To 10 
Document .Write 11 - I 
Document .Write "<BR>" 

Next 


Document .Write "¡Despegue! * 


En el ejemplo anterior, la línea con las palabras clave For y To significa: «para 
cada valor desde 1 hasta 10 de la variable I». El bucle For-Next debe verse como 
una operación en la que se da cuerda a una rueda dentro de la computadora para 
que ésta gire un número determinado de veces. Se le puede indicar a la computa- 
dora lo que se quiere que haga durante cada vuelta de la rueda. En este caso, el 
método Document. Write muestra información directamente en la pantalla. 


NOTA: El ejemplo utiliza una resta dentro del bucle. En la sección «Más acerca de los 
bucles For-Next» que aparece más adelante en este capítulo se verá una forma más sencilla 
de contar hacia atrás. 


For y Next son palabras clave que se deben utilizar juntas. A las sentencias que 
hay entre el For y el Next se les llama cuerpo del bucle, y a la estructura completa 
de control se le llama, de forma intuitiva, bucle For-Next. 

La palabra clave For establece una variable contador. En el ejemplo anterior, 
el contador era la variable entera I. En este ejemplo se asigna 1 como valor inicial 
del contador y 10 como valor final. En primer lugar, VBScript asigna a la variable 
el valor inicial. Luego comprueba si el valor del contador es menor o igual que el 
valor final. Si este valor es mayor que el valor final, no se hace nada. Si el valor 
inicial es menor o igual que el valor final, VBScript procesa las sentencias si- 
guientes hasta que se alcanza la palabra clave Next. En este punto, se añade 1 a la 
variable contador y se comienza de nuevo el proceso. El proceso continúa hasta 
que la variable contador sea mayor que el valor final. En este punto, el bucle se 
termina. La Figura 4.1 muestra un diagrama de flujo del bucle For-Next. 
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Se asigna el valor inicial a la variable contador 


Se comprueba 
si el contador 
es mayor que 
el valor final 


Se vuelve a la 


Sí 


Sentencias dentro del cuerpo del bucle 
Se incrementa el contador 


Primera sentencia situada a continuación 
de la palabra clave Next 


Figura 4.1. Diagrama de flujo del bucle For-Next. 


Finalmente, se podría haber observado que el cuerpo del bucle For-Next está 
sangrado. Como siempre, el propósito del espaciado en un programa es hacer que 
éste sea más legible y, por lo tanto, más fácil de depurar. Siempre hemos en- 
contrado más fácil tener el cuerpo de un bucle sangrado respecto del código del 
control. 

A continuación se presenta el ejemplo que muestra los niveles de cabeceras. 
La única parte delicada es la de juntar las etiquetas correctas utilizando el símbolo 
& (en el Capítulo 3 se vieron versiones más simples): 


<HTML> 
<HEAD> 


<TITLE>visualización de niveles de cabecera</TITLE> 
<SCRIPT LANGUAJE="VBSCRIPT*> 


Option Explicit 


Dim I, Cabeceralnicial, CabeceraFinal 


so 


APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


For I = 1 To 6 
Cabeceralnicial = "<H" £ I & ">" 
Cabecera Final = *</H" & T & *>" 
Document .Write Cabeceralnicial á "Esta es una cabecera de _ 
nivel " á I £ CabeceraFinal 
Next 


</SCRIPT> 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 


Ejemplo: Una calculadora de jubilaciones 


Con bucles For-Next se pueden procesar muchos valores interesantes que de otra 
forma requerirían matemáticas sofisticadas. Por ejemplo, supóngase que se quiere 
escribir un programa que permita que los usuarios introduzcan la siguiente infor- 
mación: 


m Una cantidad fija de dinero que creen que van a poder desembolsar anual- 
mente para jubilación. 


m El tipo de interés que se espera obtener cada año. 


m El número de años que faltan hasta la jubilación. 


El programa calcularía entonces la cantidad de dinero de la que dispondrían 
cuando se jubilasen. Para este tipo de cálculo existen fórmulas sofisticadas que 
involucran progresiones geométricas, pero el sentido común (y un sencillo bucle 
For-Next) es suficiente. Lo que sucede es que cada año se obtiene un interés 
sobre la cantidad previa, a la que se añade la nueva cantidad. Asumamos que 
el interés es compuesto anual. Entonces, este programa necesitará cuatro cua- 
dros de texto, cuatro etiquetas y un botón de orden. La Figura 4.2 muestra la 
página Web. Como se mencionó en el capítulo anterior, no se proporcionará todo 
el código fuente (puesto que está en el archivo Jubilacion.htm del CD que se 
acompaña). 

La siguiente tabla lista los controles ActiveX en el orden en el que se deben 
añadir a la página Web y describe los valores de las propiedades que es necesario 
modificar. La única propiedad que no se ha tratado anteriormente es la propiedad 
Locked. La asignación del valor True a la propiedad Locked del cuadro de texto 
txtAhorros evita que el usuario introduzca algún otro valor en este cuadro de tex- 
to, que es donde el programa pondrá los ingresos por jubilación. 


CONTROL DEL FLUJO DEL PROGRAMA 91 


Figura 4.2. Página Web de cálculo de ingresos por jubilación. 


Control ActiveX Propiedad Valor 
Microsoft Forms 2.0 Label Caption Cantidad por año 
Microsoft Forms 2.0 TextBox 1D txtCantidadPorAnio 
Microsoft Forms 2.0 Label Caption Tipo de interés 
Microsoft Forms 2.0 TextBox ID txtTipolnteres 
Microsoft Forms 2.0 Label Caption Número de años 
Microsoft Forms 2.0 TextBox 1D txtNumeroAnios 
Microsoft Forms 2.0 Label Caption Ahorros = 
Microsoft Forms 2.0 TextBox 1D txtAhorros 
Locked True 
Microsoft Forms 2.0 CommandButton 1D cmdCalcular 
Caption Calcular 


A continuación se muestra el procedimiento de manejo de eventos que hace 
los cálculos emdCalcular_Click: 


Sub emdCalcular Click 
"Calcula los ingresos de jubilación asumiendo 
"un depósito fijo y un tipo de interés fijo 


Dim Total, Cantidad 
Dim Interes, Anios 
Dim I 
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Total = 0 

Cantidad = txtCantidadPorAnio.Text 
Interes = txtTipolnteres.Text / 100 
Anios = txtNumeroAnios.Text 


For I = 1 To Anios 
Total = Cantidad + Total + (Total * Interes) 
Next 


extAhorros.Text = Total 
End Sub 
La línea clave dentro del bucle For-Next es ésta: 


Total = Cantidad + Total + (Total * Interes 


Esta línea clave obtiene un nuevo total añadiendo la cantidad de este año a los 
intereses producidos la cantidad total previa. 


Errores con bucles 


El cambio de la variable contador dentro de un bucle es una fuente segura de erro- 
res. VBScript utilizará alegremente el nuevo valor, y no se volverá a conocer las 
veces. que se ejecutará el bucle. Por ejemplo, no se puede asegurar cuántas veces 
se ejecutará el siguiente código: 


For Contador = 1 To'10 
Contador = InputBox("¿Cuántas vueltas se quiere dar?“) 
Next 


AVISO: El cambio del contador también puede provocar un bucle infinito. Los bucles 

infinitos se ejecutan teóricamente de forma indefinida porque el contador nunca alcanza el 

valor final. En la práctica, el explorador notificará el evento o uno se cansará de esperar 

Sue iri la tarea que está realizando, utilizando, por ejemplo, la combinación de teclas 
trl-Alt-Del. 


Probablemente, el tipo de error que se produce más frecuentemente cuando se 
utilizan bucles es el llamado por uno. Este afecta ocasionalmente incluso a los progra- 
madores más experimentados. Cuando ocurre este error, en vez de realizarse una 
operación, digamos unas 500 veces como se había planeado, el programa lo realiza 
499 o 501 veces. Si un programa adolece este problema, tenga en cuanta que el 
bucle termina sólo cuando el contador excede (no que sea igual) el valor final, 


NOTA: ¿Por qué se les llama errores por uno? Bueno, la respuesta común a preguntas 
como cuántas estanterías son necesarias para hacer una librería o cuántos postes hay que 
poner para hacer una valla son a menudo «una más». Por ejemplo, una librería con tres 
estanterías necesita cuatro piezas de madera debido a la estantería extra que es necesaria en 
la parte de arriba, y una valla con 10 agujeros entre los postes necesita 11 piezas de madera. 
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Más acerca de los bucles For-Next 


No siempre se cuenta por uno. A veces es necesario contar por dos, por fracciones 
o hacia atrás. Esto se puede hacer añadiendo la palabra clave Step al bucle For- 
Next. La palabra clave Step le indica a VBScript que cambie el contador por la 
cantidad especificada, en vez de por uno, como se hizo previamente. Por ejemplo, 
en vez de hacer una resta dentro del bucle, es más rápido hacer esto: 


For I = 10 To 1 Step -1 
Document .Write "Faltan * £ I £ " y contando" 
Document .Write "<BR>" 

Next 

Document :Write "<H1>" & "¡Despegue!" £ "</HI>" 


CONSEJO: Cuando se utilizan valores de incremento negativos, el cuerpo del bucle con- 
tinúa hasta que el contador es menor que (en vez de mayor que) el valor final. 


Ejemplo: una calculadora de tablas de hipotecas 


Como ejemplo más serio, se cogerá la calculadora de hipotecas del capítulo ante- 
rior, a la que se leañadirá un bucle For-Next para que se puedan calcular varias 
cuotas de hipotecas en vez de solamente una. Cuando el usuario pulsa el botón, el 
programa calculará las hipotecas para un rango de tipos de interés. El rango será 
entre un +/-1 por 100 del tipo introducido por el usuario, en incrementos del 
1/8 por 100. Para mostrar la tabla de resultados se utilizará un cuadro de lista. La 
única característica de programación nueva en este ejemplo es un método llamado 
AddItem que permite añadir elementos a un cuadro de lista. La sintaxis más senci- 
lla de este método (y la única que se utilizará en este ejemplo) es ésta: 


IDCuadroLista.Addltem(Texto) 


IDCuadroLista se puede sustituir por la propiedad ID del cuadro de lista; Tex- 
to se sustituye por el texto que se quiera poner. La siguiente tabla lista los contro- 
les ActiveX en el orden en el que se deben añadir a la página Web y describe los 
valores de las propiedades que es necesario modificar. 


Control ActiveX Propiedad Valor 

Microsoft Forms 2.0 Label Caption Cantidad 

Microsoft Forms 2.0 TextBox ID txtCantidadHipoteca 
Microsoft Forms 2.0 Label Caption Tipo de interés 
Microsoft Forms 2.0 TextBox ID txtTipolnteres 
Microsoft Forms 2.0 Label Caption Periodo 


Microsoft Forms 2.0 TextBox ID txtPeriodoHipoteca 
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Control ActiveX Propiedad Valor 

Microsoft Forms 2.0 ListBox ID Hipotecalnicial 
Width 333 

Microsoft Forms 2.0 CommandButton 1D emdCalcular 
Caption Calcular 


La Figura 4.3. muestra la página Web. 


A continuación se presenta el código del procedimiento de manejo de eventos 


emdCalcular Click, que se puede encontrar en el archivo 
se acompaña: 


Sub cmáCalcular_Click 
'Calcula una tabla de cuotas de hipotecas para 
'de tipos de interés (+/-1 por ciento del tipo 
'introducido por el usuario, en incrementos de 
'la información se sitúa en un cuadro de lista 


Dim Anios, Principal 
Dim Porcentaje, InteresMensual 
Dim Cuota, Interes 

Dim InteresInicial, InteresFinal 


obtiene la información 
Anios = txtPeriodoHipoteca.Text 
Principal = txtCantidadHipoteca.Text 


T J 3 X $ mA 


. Figura 4.3. Calculadora de tablas de hipotecas. 


TblHip.htm del CD que 


un rango 
de interés 
10,125 por ciento); 
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Porcentaje = txtTipolnteres.Text / 100 
InteresInicial = Porcentaje - .01 'cambio de un 1 por ciento 
InteresFinal = Porcentaje + .01 


For Interes = InteresInicial To InteresFinal Step .00125 
InteresMensual = Interes / 12 
Cuota = Principal * InteresMensual / (1-(1/(1+InteresMensual) 
“(anios * 12)) 
Hipotecalnicial.AddItem("Con un interés de * £ Interes 6 _ 
*, la cuota es de * £ Cuota) 


Next 
End Sub 
El bucle For-Next simplemente calcula de forma repetitiva las cuotas de la 


hipoteca para cada tipo de interés. (Como antes, las respuestas se muestran con 
muchos números decimales. En el siguiente capítulo se enseñará cómo limpiar esto.) 


NOTA: Las respuestas del cuadro de lista paran en el +0.875 por 100 en vez de en el +1 
por 100 porque, como se mencionó en el Capítulo 3, VBScript utiliza aproximaciones 
para números decimales. La aproximación utilizada para 0.00875 es en realidad un poco 
mayor que 0.00875, por lo que, ¡cuando se añade otro 0.00125 se supera el valor 0.01! 


Bucles For-Next anidados 


Mucha información se presenta de forma tabular, desde una simple tabla de multi- 
plicación a una sofisticada tabla de hipotecas que permite un rango de tipos de 
interés en la parte horizontal y un rango de cantidades en la parte vertical. 

Para ver esta clase de código VBScript es necesario crear estos tipos de tablas, 
para lo cual se comenzará con el ejemplo más sencillo de una tabla de multiplica- 
ción. Un fragmento como el siguiente proporciona la tabla del «dos»: 


For I = 1 To 9 
Document.Write 2 * I 
Next I 


Para tener una tabla de multiplicación completa es necesario encerrar este bu- 
cle dentro de otro que cambie el 2 por el 3, el 3 por el 4, y asi sucesivamente. En 
otras palabras, la tabla final requiere un bucle anidado dentro de otro. Por ejem- 
plo, si se sitúa el siguiente código en la sección de cabecera, se verá una tabla de 
multiplicación. (Los números no aparecerán alineados porque se componen de un 
número diferente de digitos.) 


<SCRIPT LANGUAJE="VBSCRIP*> 


<!-- 


Option Explicit 
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Dim I, J 


For J = I To 9 
For I = 1 To 9 
Document.Write I * J &" < 'se añaden espacios 
Next 
Document .Write "<BR>" 'se añade una línea después de cada fila 
Next 


</SCRIPT> 


Esto es lo que sucede: el valor de J comienza en 1, y luego VBScript entra en 
el bucle interior. El valor de I también empieza en 1. VBScrip pasa 9 veces a 
través del bucle interior antes de terminar. En cada vuelta se muestra un número 
junto con algunos espacios después de éste. Una vez que se termina de pasar com- 
pletamente por el bucle interior se procesa la sentencia extra Document. Write que 
salta a la siguiente línea. Después de eso se procesa la segunda sentencia Next, En 
este punto, VBScript cambia el valor de J a 2 y comienza todo el proceso de nuevo. 

A veces resulta de ayuda ver el bucle interior de un bucle For-Next como en 
una única cosa (es decir, una sentencia VBScript un poco más complicada que el 
resto). Si se piensa que el bucle interior realiza una única tarea no se tendrán pro- 
blemas. Los bucles anidados tienen la reputación de ser dificiles de programar y 
de entender, así como un caldo de cultivo de errores. Esto no es necesariamente 
cierto. Todo lo que hay que hacer es diseñar los bucles sobre el papel. Y si se tiene 
cuidado con los patrones de sangrado, no serán difíciles de entender, e incluso de 
depurar. 

La regla para anidar bucles For-Next es sencilla: el bucle interior se tiene que 
completar antes de pasar a la sentencia Next del bucle exterior. Se pueden tener 
bucles anidados a tres niveles (es decir, un bucle que contiene un segundo bucle, 
que a su vez contiene un tercer bucle) o bucles anidados de cuatro o incluso más 
niveles. El límite se encuentra en lo bien que se entienda la lógica del programa, 
no en VBScript. 


Bucles indeterminados 


Volvamos hacia atrás hasta la calculadora de jubilaciones tratada anteriormente en 
este capítulo. En vez de preguntar por la cantidad de dinero que tendrá una perso- 
na al final de un número específico de años, se preguntará por el tiempo que nece- 
sitará la persona para llegar a tener $1.000.000 (asumiendo de nuevo que todos los 
años se ingresa la misma cantidad de dinero y que no cambia el tipo de interés). Se 
podría intentar el método de prueba y error con el programa anterior, pero hay una 
solución más directa. Pronto se verá cómo resolver éste y otros muchos problemas 
similares. 

Esta calculadora de jubilaciones modificada ofrece un buen ejemplo de tarea 
que hay que realizar repetidamente en programación. Los bucles deben repetir una 
operación dependiendo de los resultados obtenidos en el bucle. Dichos bucles 
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son indeterminados (es decir, no se ejecutan un número fijo de veces) por natura- 
leza: La siguiente estructura se utiliza cuando se escribe este tipo de bucles en 
VBScript: 


Do 
Sentencias VBScript 
Until condición 


La Figura 4.4. muestra lo que hace VBScript en un bucle Do-Until. 
Si fuera necesario, Cuando se escribe un bucle indeterminado, algo debe cambiar; en otro caso, la 
utilícese la condición nunca se cumpliría y uno se quedaría atascado en un bucle infinito. 
ci ld Microsoft Internet Explorer señala situaciones en las que cree que se está atrapado 
para finalizar la en un bucle infinito, mostrando un cuadro de diálogo que dice que el script se ha 
tarea del Internet estado ejecutando durante mucho tiempo. El cuadro de diálogo pregunta si se quiere 
Explorer. parar el script, como se muestra en la Figura 4.5. 


Si apareciera este cuadro de diálogo, intente pulsar el botón Sí. 


5 Operadores relaciones 


Las claves para hacer que los bucles indeterminados funcionen se llaman opera- 
dores relacionales. El más sencillo, por supuesto, prueba la igualdad. Éste utiliza 
el mismo signo igual (=) que probablemente recuerda de la escuela y que ya ha 
visto para asignar valores a variables y propiedades. En scripts más sofisticados 
son necesarias formas de comprobar algunas cosas más, además de la igualdad. 


Cuerpo del bucle 


La condición todavía Se comprueba 
no se satisface. la condición 


Se satisface la condición 


Primera sentencia situada a continuación 
del bucle 


Figura 4.4. Diagrama de flujo de un bucle Do-Until (la condición se comprueba al final). 
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Microsoft Internet Explorer 


Figura 4.5. Mensaje de un bucle infinito. 


Esto se realiza mediante el resto de los operadores relacionales. Los operadores 
relacionales se listan a continuación: 


Símbolo Significado 
- Es igual que 

o No es igual a 
< Es menor que 


Es menor o igual que 
> Es mayor que 


Es mayor o igual que 


En cadenas de caracteres, estos operadores realizan las comprobaciones por el 
orden ANSI. Esto significa que «A» está antes que «B» y «B» está antes que «C». 
Las letras mayúsculas están antes que las minúsculas, de forma que «Z» está antes 
que «a». Dentro de las letras minúsculas, como podría esperarse, «a» está antes 
que «b» y «b» está antes que «c». El texto «aBCD» está después que el texto 
«CDE» porque las letras mayúsculas están antes que las minúsculas. Un espacio 
está antes de cualquier letra, número o cualquier otro carácter que se pueda pre- 
sentar en pantalla. 

Como ejemplo, suponga que se quiere evitar un error de «división por cero» 
cuando el usuario introduzca un dato en el cuadro de texto. Se utiliza un fragmen- 
to como éste: 


Do 
Número = InputBox("Por favor, introduzca un número que no sea 
cero.") 
Loop Until Número <> 0 


La escritura de este tipo de bucles es el primer paso para evitar que el usuario 
introduzca el tipo equivocado de datos. La comprobación de los datos de entrada 
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La sección «¿Qué es es una de las formas de comenzar a realizar un programa antibalas. De hecho, una 
esto?» de la página gran parte de la protección de un programa (la jerga es «hacerlo robusto») involu- 


110 de este 
capitulo tiene más 
información sobre 
la validación de 
entradas. 


cra hacerlo tolerante a errores de entrada. En vez de comportarse de forma extraña 
debido al error de un usuario, el programa comprueba que los datos introducidos 
sean utilizables. En caso contrario, avisa al usuario. Cuanto más robusto es un 
programa, es menos probable que se comporte de forma extrañá frente a usuarios 
sin experiencia. 


NOTA: Una de las grandes ventajas de VBScript es que la computadora del usuario hace 
el trabajo de validación de la entrada (comprobando lo que el usuario ha tecleado). Como 
se trató en el Capítulo 1, no se volverá a necesitar enviar datos por la red, haciendo que el 
servidor pierda el tiempo en esta tarea. 


Incluso se pueden monitorizar las pulsaciones de las teclas como si se escribie- 
ran en cualquier control que aceptara entradas. Para saber cómo se hace esto, véa- 
se la sección «Cómo utilizar el procedimiento de manejo de eventos KeyPress» 
del Capítulo 9. 

Ahora estamos listos para ver la calculadora de jubilaciones modificada, men- 
cionada al principio de esta sección. Se introduce la cantidad ahorrada por año y el 
tipo de interés, y luego se pulsa el botón Calcular. Entonces aparecerá un cuadro 
de mensaje informando del tiempo que llevará acumular $1,000.000, como se 
muestra en la Figura 4.6. 

A continuación se muestra el procedimiento de manejo de eventos cmdCalcular- 
_Click, que se puede encontrar en el archivo Millon.htm del CD que se acompaña, 
mediante el que se determina el tiempo que llevará acumular $1.000.000: 


5 OO TA 11 


Figura 4.6. Calculadora de jubilaciones modificada. 
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Sub cmdCalcular_Click 
Calcula los años que llevará 
*ahorrar $1.000.000, asumiendo 
"un depósito y un tipo de interés fijo 


Dim Cantidad, Interes 
Dim Anios, Total 


Cantidad = txtCantidadPorAnio.Text 
Interes = txtTipolnteres.Text / 100 
Anios 


o 
Total - O 


un 


Do 
Total - Cantidad + Total + (Total * Interes 
Anios = Anios + 1 

Loop Until Total >= 1000000 


MsgBox ("Tendrá $1.000.000 en " £ Anios á * años”) 
End Sub 


El cuerpo del bucle es muy parecido al de la calculadora de jubilaciones del 
principio de este capítulo (figura el cambio anual y se añade al total anterior para 
obtener un nuevo total). Esta vez, sin embargo, la variable Años le sigue la pista al 
número de años. Finalmente, el bucle continúa mientras el valor de la variable 
Total sea menor de 1.000.000. En el momento en el que Total es igual o excede 
este objetivo, el bucle finaliza y VBScript informa de los resultados en un cuadro 
de mensaje. 


Posibles errores 


Siempre hay que estar al tanto de un problema que ocurre frecuentemente con 
estos nuevos tipos de bucles. Considérese (pero no ejecute) este fragmento: 


Total = 0 
NumeroVueltas = 0 
Do 
Total = Total + .1 
NumeroVueltas = NumeroVueltas + 1 
Document .Write "En " á NumeroVueltas á * el total es: " & Total _ 
£*<BR>" 
Loop Until Total = 1 


Se podría pensar que este programa finalizaría después de pasar 10 veces por 
el bucle, pero no, y es importante entender porqué. De hecho, este fragmento tiene 
como resultado un bucle infinito y, o sería avisado por el Internet Explorer (me- 
diante el cuadro de diálogo que se vio anteriormente), o necesitaría utilizar la com- 
binación de teclas Ctrl-Alt-Del para finalizar la tarea del Internet Explorer. 

Este bucle infinito sucede por una sutil pero importante razón. Como se vio 
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con la calculadora de tablas de hipotecas que paraba demasiado pronto, una vez 
que en VBScript se utilizan números con un punto decimal, estos números son 
sólo aproximaciones. En VBScript, la caracterización interna de 0.1 es un poco 
mayor en su séptimo decimal. Como VBScript añade 0.1 al total, los pequeños 
errores se acumulan y el total resultante, aunque está muy cerca del 1, nunca es 
exactamente igual a 1. 

La moraleja es que cuando se utilizan números con puntos decimales no se 
debe utilizar la igualdad (o desigualdad) como condición de salida del bucle. En 
su lugar, se deben permitir pequeños errores utilizando cualquiera de los otros 
operadores relacionales, por ejemplo: 


Loop Until Total > .99999999 
O, para asegurarse de que el total es al menos 1, hacer lo siguiente: 
Loop Until Total >= 1 


Esto asegura que el programa se parará realmente después de pasar diez veces 
por el bucle. 


A Bucles indeterminados sofisticados 


Una tarea común es la lectura de nombres introducidos por los usuarios, llevando 
la cuenta durante todo el tiempo. Es necesaria una forma de saber cuándo el usua- 
rio ha terminado de introducir nombres. Suponga que se para cuando el usuario 
introduce ZZZZ. (En el Capítulo 6 se verá cómo almacenar nombres; por ahora, 
tan sólo seguiremos este ejemplo, incluso aunque tiremos mucha información que 
al usuario le resulta laborioso introducir.) 

Esto parece bastante fácil (se utiliza un bucle indeterminado que cuenta el nú- 
mero de entradas, finalizando cuando el usuario introduce ZZZZ): 


ContadorNombres = 0 


Do 
Nombre = InputBox(*"Por favor, introduzca el siguiente nombre:") 
ContadorNombres = ContadorNombres + 1 

Loop Until Nombre = *ZZZZ" 

Document .Write "El número de nombres introducido es " £ 


ContadorNombres 


ADVERTENCIA: Recuérdese que ZZZZ no es igual a zzzz, por eso la introducción de le- 
tras en minúsculas no finaliza el bucle. 


Aunque este fragmento se podría parecer a un prototipo de código que lee una 
lista de elementos hasta que encuentra el último, tiene un problema. De hecho, 
¡adolece del error por uno! ¿Por qué? Imagine que la lista sólo consiste de un 
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nombre además de ZZZZ. ¿Qué sucede? Trabajemos con este programa paso a 
paso. El usuario teclea el primer nombre, y ContadorNombres se incrementa en 1. 
A continuación el usuario introduce ZZZZ. Puesto que la primera comprobación 
se ha hecho al final del bucle, ContadorNombres se incrementa a 2 antes de que se 
realice la nueva comprobación. Por tanto, cuando el bucle finaliza el contador es 2, 
cuando lo que se quiere es que sea 1. Una posible cura es restar 1 a ContadorNom- 
bres después de terminar el bucle. Sin embargo, esto es un poco tonto cuando 
VBScript hace la cura más fácil (mover la comprobación al principio del bucle). 
Considérese lo siguiente: 


ContadorNombres = 0 
Nombre = InputBox("Por favor, introduzca el siguiente nombre:") 


Do Until Nombre = *ZZZZ" 

ContadorNombres = ContadorNombres + 1 

Nombre = InputBox("Por favor, introduzca el siguiente nombre: *) 
Loop 


Ahora el usuario teclea el primer nombre antes de empezar el bucle. Una vez 
hecho esto, se introduce en el bucle. El programa hace una comprobación inicial, 
y ContadorNombres se incrementa en 1 únicamente si la condición no se cumple. 
(Observe que este tipo de bucle también funciona si el usuario introduce sólo ZZZZ. 
En este caso, ContadorNombres es 0, que es lo que debería ser.) La Figura 4.7 
muestra un dibujo de lo que hace VBScript en este tipo de bucles. 


CONSEJO: Una buena regla empírica es que cuando no se quiera guardar la entrada final 
(como ZZZZ) como parte de la lista de entradas, la condición se pone al principio del bucle. 
En cualquier otro caso, la condición se pone al final. 


Se vuelve a la Se comprueba 


la condición 


Se satisface 


La condición todavía no se satisface 


Cuerpo del bucle 
Primera sentencia situada a continuación 
de la palabra clave Loop 


Figura 4.7. Diagrama de flujo de un bucle Do-Until (la condición se comprueba al principio). 
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Con la condición al final, el bucle siempre se ejecuta al menos una vez; con la 
condición al principio, el bucle podría no ejecutarse. También, recuerde que cuan- 
do la condición está al principio, evidentemente se debe tener algo que comprobar. 
Por tanto, asegúrese de que antes de que comience el bucle, las variables que se 
van a comprobar están inicializadas. Finalmente, no olvide que cuando la condi- 
ción está al principio son necesarias generalmente dos sentencias de asignación: la 
primera antes de que comience el bucle y la segunda (para mantener el proceso en 
marcha) dentro del bucle. 

Cuando se anidan bucles Do, se debe seguir una regla similar a la seguida para 
los bucles For-Next anidados (el bucle interior debe terminar antes de comprobar- 
se la condición del bucle exterior). Para no tener problemas, se debe elegir un 
patrón de sangrado razonable. 

Finalmente, tenga en cuanta que todos los operadores aritméticos tienen una 
precedencia mayor que los operadores relacionales. VBScript no tiene problemas 
para interpretar el siguiente código realizando primero la multiplicación y luego la 
comparación: 


Loop Until ElNumero * 10 > 100 


Pero como siempre, los paréntesis dejan las cosas más claras, por eso se debe- 
ría escribir: 


Loop Until (ElNumero * 10) > 100 


Bucle Do-While 


VBScript tiene otros tipos de bucles. Estos bucles se forman remplazando la pala- 
bra clave Until por la palabra clave While. Este nuevo tipo de bucles podrían pare- 
cer superfluos ya que siempre se puede cambiar un bucle Do-While por un Do- 
Until invirtiendo el operador relacional. Por ejemplo, 


Do 
Loop While txtCuadrol.Text = ** 


es lo mismo que 


Do 
Loop Until txtCuadroi 


ext <> 


y 


Do 
Loop While SuSuposicion <= 100 
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es la misma que 


Do 
Loop Until SuSuposicion > 100 


Dicho esto, ¿por qué preocuparse en aprender este nuevo tipo de bucles? Hay 
dos razones por las que los bucles Do-While no son superfluos. La primera es que 
los programadores desean escribir sus programas lo más ajustados posible a la 
forma en la que funciona su propia mente. A veces una operación se verá como 
algo que discurre hasta que sucede algo, mientras que otras veces se piensa en ella 
como algo que transcurre indefinidamente. La riqueza del lenguaje de programa- 
ción VBScript hace que los patrones del pensamiento se ajusten mejor al progra- 
ma que se intenta escribir. De hecho, los psicólogos han descubierto que las com- 
probaciones con condiciones positivas son más fáciles de entender. 


Do While Numero = 0 
es más fácil de procesar por la mayoría de la gente que su equivalente: 


Do Until Numero <> 0 


Bucles Do con And, Or y Not 


En la sección anterior se dio una razón para utilizar tanto bucles Do-Until como 
Do-While, pero esta no es la única razón. Probablemente la mejor razón para apren- 
der ambos tipos de bucles venga cuando se tengan que combinar condiciones. 
Supongamos que se quiere tener $1.000.000 antes de cumplir los 50 años, por 
ejemplo. 

En VBScript se pueden combinar condiciones utilizando las palabras inglesas 
And, Or y Not. Estas tres palabras clave, que se llaman operadores lógicos, funcionan 
mucho mejor en VBScript de lo que lo hacen en inglés. Un proceso puede conti- 
nuar mientras ambas condiciones sean True o pararse cuando una de ellas sea False. 
Por ejemplo, el siguiente código se podría utilizar para parar una operación después 
de que se haya hecho 10 veces o cuando el total es suficientemente grande: 


Do While (Contador <= 10) And (Total < 100) 


Por otra parte, este código se utilizaría para asegurar que la operación se ha 
realizado al menos 10 veces y que el total alcanzó al menos 100: 


Do While (Contador <= 10) Or (Total < 100) 


Si esto es confuso, véalo de esta forma: si el contador es 11 pero el total sola- 
mente es 99, la utilización del inglés normal nos dice que todavía necesitamos 
continuar con la operación. 
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Finalmente, imagínese que BotonPulsado es una variable que tiene el valor 
True o False. El siguiente código permite continuar una operación durante el tiem- 
po en el que la variable BotonPulsado todavía no sea True: 


Do While Not (BotonPulsado 


Como se puede ver, los operadores lógicos se utilizan exactamente de la mis- 
ma forma que en inglés. Sin embargo, llega a ser incrementalmente confuso inten- 
tar forzar combinaciones de operadores And, Or y Not en bucles en los que no 
parece que encajan. Por ejemplo, supóngase que se quiere continuar un proceso 
mientras un número sea mayor que O y el cuadro de texto esté vacío. Es mucho 
más fácil decir: 


Do While (Numero > 0) And (txtCuadrol.Text = "") 


que decir 
Do Until (Numero <= 0) Or (txtCuadrol.Text <> "") 


aunque ambas significan lo mismo 


TOMA DE DECISIONES (SENTENCIAS CONDICIONALES) 


En este punto, los scripts sólo pueden decidir si repiten un grupo de sentencias. 
Todavía no pueden cambiar lo que hacen dependiendo de nueva información. Las 
siguientes secciones se preocupan de esto. Todas las sentencias de estas secciones 
tratan de convertir una frase como ésta en código VBScript: 


Si condición Then hacer algo diferente... 


VBScript utiliza la sentencia If-Then de forma muy parecida a como se utiliza 
en inglés. Por ejemplo, para avisar a un usuario de que un cuadro de texto no debe 
estar vacío, se utiliza una línea como ésta: 


If txtCuadrol.Text = "“ Then MsgBox "¡Debe introducir algo!" 


De forma más general, cuando VBScript se encuentra con una sentencia If- 
Then, comprueba si la primera cláusula (llamada, naturalmente, la cláusula If) es 
True. Si dicha cláusula es True, la computadora hace lo que hay a continuación 
(llamada la cláusula Then). Si falla la comprobación, el procesamiento salta a la 
siguiente sentencia. 

La sentencia If-Then se puede utilizar para comparar textos o números. Por 
ejemplo, una sentencia como la siguiente comprueba el orden ANSI: 


If Textol < Texto2 Then MsgBox(Textol £ "va antes que " á Texto2) 
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Si tanto la variable N1 como la variable N2 guardan números, esta sentencia 
comprueba el orden numérico: 


If N1 < N2 Then MsgBox(N1 £ "va antes que * á N2) 


Sentencia If-Then con And, Or y Not 


También se pueden utilizar las palabras clave And, Or y Not en una sentencia If- 
Then. Estas palabras clave permiten comprobar dos condiciones de una sola vez. 
Por ejemplo, suponga que se tiene que comprobar si un número está entre O y 9: 


If (Digito >= 0) And (Digito <= 9) Then MsgBox "OK" 


ADVERTENCIA: Tanto hablando como escribiendo, a veces decimos cosas como: «Si el 
promedio es mayor que 80 y menor que 90, entonces ...». Trasladar la construcción de esta 
sentencia directamente a código VBScript no funcionará. La variable se debe repetir cada 
vez que se quiera comprobar algo. Para hacer la traducción de inglés a VBScript, se diría: 
«Si el promedio es mayor que 80 y el promedio es menor que 90, entonces...» 


Una nota final sobre la utilización de los operadores And, Or y Not es que no 
se tiene por qué utilizar la misma variable en todas las condiciones. Una sentencia 
como ésta es una sentencia VBScript perfectamente válida: 


If (Grado4 > Grado3) And (Media > 60) Then MsgBox "¡Mejora!" 


Los paréntesis están allí sólo para mejorar la legibilidad; no son necesarios. 
VBScript procesa los operadores relacionales antes de preocuparse por los opera- 
dores lógicos como el And. 

La utilización de la palabra clave Or en sentencias If-Then es similar, La com- 
probación tiene éxito si cualquiera de las condiciones es True. Suponga que se 
tenía que probar que al menos uno de los dos números no era cero. Se utilizaría 
una sentencia como ésta: 


If (A <> 0) Or (B <> 0) Then 
La elección de la utilización del operador Not depende fundamentalmente del 

gusto de cada persona (como en la decisión entre la utilización de bucles Do-While 

y Do-Until). La mayoria de la gente encuentra más fácil cambiar solamente el 

operador relacional. Por ejemplo: 

If Not (Salario > 62700) Then 


es exactamente lo mismo que 


If Salario <= 62700 Then 
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De forma similar, 
If Not (A = "Internet Explorer") Then ... 
es más difícil de escribir que 
If A <> "Internet Explorer" Then ... 


Si prefiere utilizar el operador Not, asegúrese de utilizar los paréntesis; sin 
ellos el programa es apto para ser ilegible. 

Puesto que VBScript comprueba realmente un valor booleano en la cláusula If, 
allí se puede situar en realidad cualquier propiedad booleana. Por ejemplo, en la 
siguiente sentencia VBScript procesa la cláusula Then sólo si la propiedad Ena- 
bled del cuadro txtCuadrol es True: 


TÉ txtCuadrol.Enabled Then ... 


Otros operadores lógicos 


Existen otras formas, algo menos comunes, de combinar comprobaciones. Por ejem- 
plo, se puede utilizar el operador Eqv (equivalencia). Éste permite comprobar si 
dos condiciones son ambas True o ambas False. Por ejemplo: 


If (X=true And Y=True) Or (X=False And Y=False) Then ... 
es la misma que 
If (X Eqv Y) Then ... 

Otro operador útil (especialmente para scripts de seguridad de archivos y para 
gráficos) es el Xor (Or exclusivo). Éste se corresponde a: «si A o B pero no ambos». 
Sentencia If-Then-Else 
Supóngase que es necesario escribir una calculadora de impuestos de la Seguridad 
Social. La forma en la que funcionan estos impuestos es que se paga (en 1997) un 
6.2 por 100 de la cantidad que se gana, hasta $65.400. A partir de esta cantidad, 
tanto si se ganan $66.000 como $5.550.00 al año, a la Seguridad Social no se le 


paga más de $4.054,80. Para escribir el código de esta calculadora es necesario 
utilizar una línea como ésta: 


If Sueldo < 65400 Then ImpuestoSS = .062 Else ImpuestoSS = 4054.80 


Cuando VBScript procesa una sentencia If-Then-Else, si la comprobación tie- 
ne éxito, VBScript procesa la sentencia que sigue a la palabra clave Then (la cláu- 
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sula Then). Si la comprobación falla, VBScript procesa la sentencia que sigue a la 
palabra clave Else (la cláusula Else). La Figura 4.8 muestra, en un estilo de diagra- 
ma de flujo, lo que hace VBScript con una sentencia If-Then-Else. 


Sentencia bloque If-Then-Else 


Muy a menudo, cuando una condición es True o False se querrán procesar múlti- 
ples sentencias. Para hacer esto, se necesita la forma más potente de la sentencia 
If-Then-Else, la sentencia bloque If-Then-Else. Esta permite procesar tantas sen- 
tencias como se quieran como respuesta a una condición True, como se muestra a 
continuación: 


I£ Ahorros > ingresos anuales 
Comprar acciones 
Comprar bonos 
Irse de vacaciones 


Hay tres sentencias como respuesta a algo que es True. Para escribir esto en 
VBScript se utiliza un formato ligeramente diferente al de las sentencias If-Then- 
Else. La sentencia bloque If-Then-Else tiene el siguiente aspecto: 


I£ condición Then 

Montones de sentencias 
Else 

Más montones de sentencias 
End If 


La condición 
no se satistace 


Cláusula 
Else 


Se satisface Se comprueba 


la condición 


Primera sentencia situada a continuación de la 
palabra clave End If 


Figura 4.8. Diagrama de flujo de una sentencia If-Then-Else. 


CONTROL DEL FLUJO DEL PROGRAMA 109 


En la línea con la palabra clave Then no se pone nada; inmediatamente des- 
pués de escribirla se pulsa un retorno de carro. Esta palabra clave desnuda es la 
forma que VBScript tiene de saber que comienza un bloque. La palabra clave Else 
es opcional; poniéndola allí (de nuevo sola en una línea) significa que le sigue otro 
bloque de sentencias que es procesado sólo si la cláusula If es False. Sin embargo, 
esté o no allí la cláusula Else, la sentencia bloque If-Then-Else debe finalizar con 
las palabras clave End If. 

Como ejemplo de esto, ampliemos la calculadora original de hipotecas del 
Capítulo 3 para que el programa compruebe si el usuario quiere calcular la cuota 
mensual de la cantidad máxima que pueda pedir prestada, dependiendo de qué 
cuadro de texto esté vacio. Los comentarios del siguiente programa proporcionan 
la fórmula necesaria para esto. (Se tiene que hacer algo de álgebra sobre la fórmu- 
la original.) Se utilizará exactamente el mismo diseño de página Web usado en el 
Capítulo 3. A continuación se muestra el nuevo procedimiento de manejo de even- 
tos emdCalcular_Click, que se puede encontrar en el archivo HipAmp.htm del CD 
que se acompaña: 


Sub cmdcalcular_Click 
*Calcula las cuotas mensuales de la hipoteca 
'utilizando la fórmula 
"Cuota = Principal*InteresMensual/(1-(1/ 
(1+«InteresMensual))”*(Años*12)) 
"o el máximo que se puede pedir prestado, utilizando la fórmula 
‘Principal = Cuota * (1-(1/(l+InteresMensual))”(Años*12)) / 
InteresMensual 


Dim Años, Principal 
Dim Cuota, Interes 
Dim InteresMensual 
Dim Numerador, Denominador 


'obtiene la información 

Años = txtPeriodoKipoteca.Text 
Principal = txtCantidadHipoteca.Text 
Cuota = txtCuotaMensual.Text 

Interes = txtTipolnteres.Text / 100 
InteresMensual = Interes / 12 


If txtCuotaMensual.Text = "" Then 
Numerador = Principal * InteresMensual 
Denominador = (1-(1/(1+InteresMensual))“(Años*12)) 
Cuota = Numerador / Denominador 
txtCuotaMensual.Text = Cuota 


Else 
Numerador = Cuota * (1-(1/(1+InteresMensual))”(Años*12)) 
Denominador = InteresMensual 


principal = Numerador / Denominador 
txtCantidadHipoteca.Text = Principal 
End I£ 


End Sub 
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¿Qué es esto? 


La sentencia If-Then-Else es fácil de utilizar para determinar si el usuario ha in- 
troducido un número o un texto con el formato de una fecha. Este es el primer 
paso en el proceso de validación de entradas. La técnica depende de dos funcio- 
nes boolenas embebidas en VBScript. La función IsDate indica si una expresión 
tiene el formato correcto para ser utilizada como una fecha. Considérese el si- 
guiente código: 


Entrada = txtCuadrol.Text 
If IsDate(Entrada) Then 

'se hace lo que se quiera con la fecha 
Else 

MsgBox "Por favor, 
End If 


roduzca el texto en la forma de una fecha." 


De forma similar, la función IsNumeric se puede utilizar para determinar si 
una variable contiene un número. Esto proporciona una manera rápida de compro- 
bar si el usuario ha introducido accidentalmente una letra, por ejemplo: 


Entrada = txtCuadrol.Text 
If IsNumeric(Entrada) Then 
'se hace lo que se quiera con el número 
Else 
MsgBox "Por favor, 
End If 


roduzca un número.” 


Cómo utilizar la sentencia If-Then-Else 
con un cuadro de mensaje 


La sentencia If-The-Else también se puede utilizar para determinar cuál es el bo- 
tón pulsado por el usuario en un cuadro de mensaje. Si el valor de la función Msg- 
Box se asigna a una variable, se puede utilizar una sentencia If-The-Else para com- 
probar dicho valor. Se pueden incluir botones en un cuadro de mensaje añadiendo 
un segundo parámetro a la llamada de la función MsgBox. VBScript viene con 
constantes embebidas para estos valores. Por ejemplo, la utilización de la constan- 
te vbYesNo muestra un cuadro de mensaje con dos botones (Sí y No). Luego se 
puede comprobar qué botón ha pulsado el usuario utilizando una constante embe- 
bida como vbYes, como se muestra en el siguiente ejemplo: 


X = MsgBox ("¿Sí o No?", vbYesNo 
If X = vbYes Then 

MsgBox "Se ha pulsado el botón Sí. 
Else 

MsgBox "Se ha pulsado el botón No. 
End If 
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Obsérvese que cuando se utiliza la función MsgBox de esta forma es necesario 
poner paréntesis. La siguiente tabla lista las constantes embebidas para los dife- 
rentes botones que se pueden mostrar en un cuadro de mensaje. 


Constante Valor Descripción 

vbOKOnly 0 Muestra sólo el botón OK 

vbOKCancel 1 Muestra los botones OK y Cancelar 
vbAbortRetrylIgnore 2 Muestra los botones Abort, Retry e Ignore 
vbYesNoCancel 3 Muestra los botones Si, No y Cancelar 
vbYesNo 4 Muestra los botones Sí y No 
vbRetryCancel $ Muestra los botones Retry y Cancelar 


La siguiente tabla lista las constantes embebidas que se pueden utilizar para 
mostrar iconos, en vez de botones, en un cuadro de mensaje. 


Constante Valor Descripción 

vbCritical 16 Muestra el icono de mensaje crítico 
vbQuestion 32 Muestra el icono de consulta de aviso 
vbExclamation 48 Muestra el icono de mensaje de aviso 
vbInformation 64 Muestra el icono de mensaje de información 


Los valores de estas dos tablas se pueden combinar juntando las constantes. 
Por ejemplo, el siguiente código tiene como resultado el cuadro de mensaje mos- 
trado en la Figura 4.9. 


X = MsgBox("¿SÍí o no?", vbYesNo, vbInformation) 


La siguiente tabla lista las constantes embebidas que se utilizan para identifi- 
car el botón pulsado por el usuario. Se vio un ejemplo de esto anteriormente. 


Figura 4.9. Cuadro de mensaje con botones y un icono. 
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Constante Valor Descripción 

vbOK 1 Se pulsó el botón OK 
vbCancel 2 Se pulsó el botón Cancelar 
vbAbort 3 Se pulsó el botón Abort 
vbRetry 4 Se pulsó el botón Retry 
vblgnore 5 Se pulsó el botón Ignore 
vbYes 6 Se pulsó el botón Sí 

vbNo 7 Se pulsó el botón No 


Se pueden hacer muchas más cosas con los cuadros de mensaje. Por ejemplo, 
se puede cambiar el botón por defecto añadiendo una de las constantes mostradas 
en la siguiente tabla a las constantes que ya se están utilizando, El primer botón es 
normalmente el de por defecto. 


Constante Valor Descripción 

vbBotonPorDefectol 0 El primer botón es el de por defecto 
VbBotonPorDefecto2 256 El segundo botón es el de por defecto 
VbBotonPorDefecto3 512 El tercer botón es el de por defecto 
VbBotonPorDefecto4 768 El cuarto botón es el de por defecto 


Finalmente, se puede evitar que el usuario continúe trabajando con Internet 
Explorer o incluso que cambie a otra aplicación hasta que no responda al cuadro 
de mensaje. (¡Que no se hace de forma casual!) Esto se hace añadiendo una de las 
constantes de la siguiente tabla a las constantes que ya se están utilizando. 


Constante Valor Descripción 


vbApplicationModal 0 Modalidad de aplicación, El usuario debe responder al 
cuadro de mensaje antes de continuar trabajando en la 
aplicación actual. Este es el valor por defecto. 


vbSystemModal 4096 Modalidad de sistema, Todas las aplicaciones se 
suspenden hasta que el usuario responde al cuadro de 
mensaje. 


Combinación de sentencias If-Then-Else con bucles 


Suponga que se quiere modificar el programa que calcula el tiempo que se tarda en 
ahorrar $1.000.000 para que finalice cuando se cumpla una de estas condiciones: 
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m Se alcanza el objetivo del $1.000.000. 
m El número de años que faltan hasta la jubilación alcanza algún máximo. 


Es fácil escribir el bucle que continúa hasta que suceda cualquiera de dichas 
condiciones. Sin embargo, supongamos que se quiere mostrar un cuadro de men- 
saje que diga la condición que ha provocado la finalización del bucle. Para hacer 
esto, es necesario utilizar una sentencia If-Then-Else a continuación del bucle. 
Este sería el nuevo procedimiento de manejo de eventos cmdCalcular Click, que 
se puede encontrar en el archivo MaxAños.htm del CD que se acompaña: 


Sub cmdcalcular_Click 


Const OBJETIVO = 1000000 
Const NUMERO_DE_ANIOS = 30 


Cantidad, Interes 
Anios, Total 


Cantidad = txtCantidadPorAnio.Text 
Interes = txtTipolnteres.Text / 100 
Anios = 0 

Total = 0 


Do Until (Total >= OBJETIVO) Or: [Anios = NUMERO_DE_AÑOS) 
Total = Cantidad + Total + (Total * Interes) 
Anios = Anios + 1 

Loop 


Tf Anios < NUMERO_DE_ANIOS Then 
MsgBox ("¡Felicidades! Alcanzará el objetivo en " _ 
& Anios £ * Años.") 
Else 


MsgBox("Sólo tiene $" & Total £ " para retirarse. ") 
End If 


End Sub 


Sentencia Select-Case 


Suponga que se estaba diseñando un programa de selección de personas para tra- 
bajos de programación en función de los niveles que obtuvieron en el examen fi- 
nal de su curso de programación en VBScript. Se hará una oferta a aquellos que 
hayan recibido un nivel A; se solicitará una entrevista a aquellos que hayan obte- 
nido un nivel B; no se tendrá en cuenta a nadie más. Aunque para programar esto 
se puede utilizar la sentencia If-Then-Else, la consideración de múltiples casos es 
tan común que VBScript tiene otra estructura de control diseñada especificamente 
para ello. Se llama sentencia Select-Case. Para utilizar esta sentencia se comienza 
con algo que se quiera comprobar. Por ejemplo, se podría escribir esto: 


If Nivel = "A" Then MsgBox "¡Nos gustaría contratarle!" 
If Nivel = "B" Then MsgBox “Por favor, acuda a una entrevista" 
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La cláusula 
Case-Else siempre 
debería ir al final 
de una sentencia 
Select-Case, 


If (Nivel <> "A") And (Nivel <> *B") Then _ 
MsgBox "Lo siento, no podremos considerar su solicitud" 


Sin embargo, utilizando la sentencia Select-Case se puede escribir esto: 


Select Case Nivel 


Case "A" 

MsgBox "¡Nos gustaría contratarle!" 
Case "B" 

MsgBox “Por favor, acuda a una entrevista" 
Case "O" 


MsgBox "Lo siento, no podremos considerar su solicitud" 
End Select 


La sentencia Select-Case da a entender claramente que un programa ha alcan- 
zado un punto con muchas ramas; lo que no sucede con múltiples sentencias If- 
Then. (Y cuanto más claro es un programa, más fácil es de depurar.) 


NOTA: Sólo se puede activar una cláusula de la sentencia Select-Case. 


Lo que sigue a la palabra clave Select Case es una variable o una expresión, y 
lo que VBScript vaya a hacer depende del valor de dicha variable o expresión. La 
palabra clave Case es una abreviación de «en el caso de que la variable o la expre- 
sión sea igual a». 

La eliminación de todos los casos que requieren una comprobación especial es 
tan común que VBScript tiene una forma de agruparlos en uno. Esta se representa 
(de forma natural) por las palabras clave Case Else, que deberían verse como una 
abreviatura de «hacer este caso si no vale ninguno de los otros casos», En el ejem- 
plo anterior, si alguien con un nivel D o F opta al empleo, ¡el fragmento de progra- 
ma ni siquiera se dignará a responder al aspirante! Esto es porque no hay casos 
para los niveles D o F. El siguiente ejemplo muestra una forma mejor de escribir el 
programa de selecci 


Select Case Nivel 


Case "A" 
MsgBox "¡Nos gustaría contratarle!" 
Case "B" 
MsgBox "Por favor, acuda a una entrevista" 
Case Else 


MsgBox "Lo siento, no podremos considerar su solicitud" 
End Select 


Ahora se tienen en cuenta todas las posibilidades. 
Finalmente, la sentencia Select-Case permite combinar casos. En vez de crear 
cinco casos separados para comprobar las cinco vocales, se podría escribir esto: 


Cp Ae o 
MsgBox "Esta letra es una vocal" 
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Finalizando con la sentencia If-Then-Else 


La sentencia Select-Case permite múltiples ramas de acción, pero sólo puede rea- 
lizar comprobaciones de igualdad (si la expresión de la primera línea de la senten- 
cia es igual al valor de cualquiera de las cláusulas Case). Pero suponga que se 
quieren utilizar otros operadores relacionales. Por ejemplo, suponga que se está 
llevando la cuenta del número de productos vendidos por el personal de ventas. 
Una persona que venda más de 10 productos recibe un bono; una persona que 
venda menos de 10 productos recibe una deducción de su salario; a los que vendan 
exactamente 10 productos no les pasa nada. El diseño sería el siguiente: 


If ProductosVendidos > 10 Then hacer algo 
If ProductosVendidos = 10 Then hacer otra cosa 
If ProductosVendidos < 10 Then hacer una tercera cosa 


Hasta ahora todo va bien. Ahora imagine que se quiere reiniciar la variable 
ProductosVendidos en los tres casos para que en el primer caso el vendedor co- 
mience con un crédito por el exceso sobre las 10 ventas, que en el segundo caso el 
vendedor comience con 0, y que en el tercer caso el vendedor comience con un 
débito, ¿Puede ver lo que saldría mal? La respuesta es que se podría activar inad- 
vertidamente la tercera sentencia If-Then, ¡causando un débito a un vendedor que 
vendió 10 o más productos! Por ejemplo, imagínese lo infelices que serían los 
empleados si se ejecutara el siguiente código: 


If ProductosVvendidos > 10 Then 
MsgBox "¡Ha ganado un bono de $500!" 
MsgBox "Reduciendo su contador de productos vendidos" 
ProductosVendidos = ProductosVendidos - 10 'crédito 
End TE 


If ProductosVvendidos = 10 Then 
MsgBox "Buen trabajo, pero no lo su ientemente bueno como para 
un bono* 
MsgBox "Dejando su contador de productos vendidos a 0" 
ProductosVendidos z O 
End If 


If ProductosVendidos <. 10 Then 
MsgBox "Deduciendo $500 de su salario" £ _ 
“porque no ha conseguido su cuota” 
MsgBox "¡Y necesitará recuperar este desequilibrio!" 
ProductosVendidos = ProductosVendidos - 10 'observe que este 
será negativo 


End If 


¡Se haría infelices a los mejores empleados diciéndoles que se les va a deducir 
$500 de sus salarios! (Piense bien en el código anterior. Por ejemplo, imagine que 
un vendedor vende 15 productos. El código reduce los productos vendidos a 5, 
pero esto activa la última sentencia If-Then.) 
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Esta es una situación muy común. La acción realizada en una sentencia If- 
Then afecta inintencionadamente a la condición que se comprueba en una senten- 
cia If-Then posterior. La solución es utilizar la palabra clave ElseIf. Este sería el 
código correcto: 


If ProductosVendidos >-10: Then 
MsgBox "¡Ha ganado un bono de $500)" 
MsgBox "Reduciendo su contador de productos vendidos" 
ProductosVendidos = ProductosVendidos - 10 'crédito 


Elself ProductosVendidos = 10 Then 
MsgBox "Buen trabajo, péro no lo suficientemente bueno como para 
un bono" 
MsgBox "Dejando su contador de productos vendidos a 0" 
ProductosVendidos = 0 


Else ProductosVendidos < 10 Then 
MsgBox "Deduciendo $500 de su salario" £ 
“porque no ha conseguido su cuota" 
MsgBox "¡Y necesitará recuperar este desequilibrio!" 
ProductosVendidos = ProductosVendidos - 10 'observe que este será 
negativo 


End Tf 


Ahora todo encaja. Y lo mismo que en las sentencias If-Then-Else y Select- 
Case, VBScript activa al menos una cláusula. En particular, si Productos Vendidos 
es 10 o más, la cláusula Else nunca se activa y no se tendrá irritados a muchos 
empleados. 

Una sentencia bloque If-Then-Else puede tener tantas cláusulas ElseIf como se 
quiera; la cláusula Else final no es obligatoria, pero si se incluye debe ser la últi- 
ma, El límite en el número de cláusulas Elself está fundamentalmente determina- 
do por lo que pueda procesar su cerebro. Este es el motivo de que sea preferible 
utilizar la sentencia Select-Case cuando únicamente se están realizando compro- 
baciones de igualdad. Aunque cualquier sentencia Select-Case se puede transfor- 
mar en una sentencia If-Then-Elself, la última es generalmente mucho más difícil 
de leer y, por tanto, de depurar. 

Lo último que merece la pena resaltar es que la sentencia bloque If-Then-Else 
es extremadamente flexible. Se puede poner cualquier sentencia VBScript a conti- 
nuación de la palabra clave Then (en particular, otra sentencia If-Then-Else). Con- 
sidere lo siguiente, que podría ser utilizado por un profesor que no viera el examen 
final como algo de suma importancia: 


If ExamenFinal < 65 Then 
MsgBox "Ha suspendido el examen final." 
If Media > 70 Then 
MsgBox "Sin embargo, ha aprobado el curso." 
Else 
MsgBox "Lo siento, ha suspendido el curso.* 
End If 
End If 
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¿Queda claro (olvidando de momento el patrón de sangrado) que la cláusula 
Else pertenece a la sentencia If-Then-Else interior? La forma de ver esto es «poner 
en marcha la computadora». Para que la cláusula Else pertenezca a la sentencia If- 
Then-Else exterior, la sentencia If-Then-Else interior ya debería haber terminado. 
Pero esto no es así porque antes no se ha procesado ninguna sentencia End If. El 
primer conjunto de palabras End If finaliza la sentencia If-Then-Else interior, mien- 
tras que el segundo conjunto termina la sentencia If-Then-Else exterior. Por tanto, 
la cláusula Else pertenece a la sentencia If-Then-Else interior. Naturalmente, se 
debería utilizar un patrón de sangrado consistente que hiciera evidente de un vista- 
zo dónde van las sentencias If-Then-Else anidadas. 


Capítulo 


Funciones y arrays 


Este capítulo abarca las funciones embebidas de VBScript utilizadas más frecuen- 
temente. Estas funciones pueden ayudar en situaciones tan comunes como el aná- 
lisis del texto que introduce un usuario o tan poco frecuentes como la necesidad de 
utilizar una función trigonométrica. Hay más de 80 funciones embebidas, por lo 
que este capítulo no intentará abarcarlas todas en detalle. En vez de eso, se hará 
especial hincapié en las funciones de texto, así como en la función Rnd y la sen- 
tencia Randomize. Las funciones de texto son especialmente importantes porque 
muchas de las cosas que se hacen con VBScript consisten en el análisis de textos 
introducidos por el usuario. Por otra parte, la función Rnd y la sentencia Randomi- 
ze permiten la construcción de elementos de azar en los programas. La utilización 
de estas herramientas de números aleatorios permiten programar, por ejemplo, juegos 
de azar o simulaciones, e incluso hacer ciertas clases de llamativas páginas Web. 

Durante el camino, también se mostrará más acerca del control cuadro de lista. 
Esto exigirá el aprendizaje de los arrays. Un array es el equivalente de VBScript a 
una lista o una tabla. Por esta razón, un array es una forma adecuada de organización 
de información. Por ejemplo, si se permite que un usuario añada elementos a un cuadro 
de lista, se necesita una forma de obtener los nuevos elementos. (Resulta que VBScript 
almacena todos los elementos de un cuadro de lista en un array.) Además de utili- 
zarse cuando se trabaja con cuadros de lista, los arrays son necesarios a menudo 
para trabajar con algunas de las funciones VBScript más potentes de manejo de 
textos. También se enseñará cómo utilizar estas funciones de manejo de texto. 

. 


FUNCIONES DE TEXTO 


Ya se ha visto que se pueden juntar dos textos con el operador &. (También se 
puede utilizar el signo más, pero no se recomienda porque podría traer problemas 
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cuando se combinaran números y textos.) En esta sección se verán algunas de las 
funciones VBScript más útiles de manejo de textos. 


Algunas funciones de manejo de texto útiles 


VBScript tiene muchas funciones embebidas de manejo de texto. Se comenzará 
con algunas de las más sencillas (pero sin embargo útiles) dejando las más sofisti- 
cadas para más adelante en este capítulo. 


String 


A menudo será necesario construir un texto formado por la repetición del mismo 
carácter. La función String crea este tipo de texto: 


string(Número, Carácter) 


El parámetro Número se sustituye por el número de caracteres que se quiere 
que tenga el texto. El parámetro Carácter se sustituye por el carácter que se quiere 
repetir (o por el código ANSI del carácter, si da la casualidad que lo recuerda). Por 
ejemplo, el siguiente script muestra una línea de 60 asteriscos a lo largo de la 
pantalla: 


<HTML> 
<HEAD> 


<TITLE>Asteriscos</TITLE> 
<SCRIPT LANGUAJE="VBSCRIPT"> 


Option Explicit 
Dim Asteriscos 


Asteriscos 
Document W: 


stringl60, ***) 
ite Asteriscos 


</SCRIPT> 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 
Lcase, Ucase 


Como podría esperarse de su nombre, la función Lcase fuerza que todos lo carac- 
teres de un texto estén en minúsculas, De forma similar, la función Ucase fuerza 


F 


4 
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que todos lo caracteres de un texto estén en mayúsculas. Estas funciones se utili- 
zan cuando se quiere ignorar que las letras estén en mayúsculas o minúsculas den- 
tro de un texto. Por ejemplo, suponga que se quiere comprobar el texto introduci- 
do por un usuario, pero no importa que se utilice la tecla Bloq Mayús. En vez de 
comprobar si dos textos son iguales, se comprueba si son iguales sus versiones en 
mayúsculas (o en minúsculas): 


If Ucase(txtCuadrol.Text) = Ucase(NombreUsuario) Then 
MsgBox "Bienvenido " £ NombreUsuario 

Else 
MsgBox "Lo siento, no reconozco su nombre," 

End If 

StrComp 


Esta función se puede utilizar en lugar de un operador relacional (como < o >) 
para comparar dos textos. Indica cualquiera de las tres posibilidades que se pue- 
den dar: el primer texto es menor que el segundo texto, los dos textos son iguales 
o el segundo texto es menor que el primer texto. Por ejemplo, en el siguiente códi- 
go A y B son los dos textos que se comparan: 


X = StrcompíA, B) 


La siguiente tabla muestra los posibles valores de X: 


Si Entonces el valor de X es 
A<B -1 

A=B 0 

A>B 1 

A o B son un texto vacio Null (una constante embebida) 


CONSEJO: Añadiendo un tercer parámetro a la llamada StrComp se puede controlar si la 
comparación es, o no, sensible a que las letras estén en mayúsculas o minúsculas. Si se 
utiliza StrComp(A, B, 1) la comparación no es sensible; en StrComp(A, B, 0) sí. (Por defecto, 
la comparación es sensible a que las letras estén en mayúsculas o minúsculas.) 


Trim, Ltrim, Rtrim 


Es fácil insertar accidentalmente espacios extra cuando se escriben datos. Aunque 
hay que trabajar un poco para sacar los espacios extra interiores de un texto, no se 
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necesita mucho esfuerzo para eliminar los espacios al principio o al final de éste. 
La función Trim borra los espacios situados en los extremos de un texto, como se 
muestra en el siguiente ejemplo: 


EntradaMala = "Esto es.” 
EntradaBuena = Trim(EntradaMala) 


La variable EntradaBuena contiene ahora el texto: «Esto es.». De forma simi- 
lar, Ltrim borra sólo los espacios situados en el lado izquierdo, mientras que Rtrim 
borra todos los del derecho. 


ANÁLISIS DE TEXTOS 


Suponga que se quiere examinar, carácter a carácter, lo que escribe el usuario en 
un cuadro de texto. El código se debe parecer a éste: 


For cada carácter 
Do lo que se quiera con el carácter 
Next 


Trasladar esto a VBScript requiere un bucle For-Next que utilice las posiciones 
de los caracteres para los valores inicial y final. El primer carácter de un texto está 
en la posición 1, el segundo carácter está en la posición 2, y así sucesivamente, El 
valor inicial del bucle debe ser evidentemente 1, pero lo que no es evidente es que 
se debe determinar la longitud del texto para saber cuál debería ser el valor final. 


Utilización de las funciones Len, Mid y Right 
de análisis de textos 


En VBScript, la función Len se utiliza para determinar la longitud de un texto. La 
sintaxis de esta función es: 


2 (Texto) 


El texto actual (o la variable texto) se sustituye por el parámetro Texto. 

A continuación es necesaria una función que permita ver de forma individual 
un carácter de un texto, en función de la posición de dicho carácter. La función 
Mid es la más importante de todas ellas, que además permite ver un grupo de ca- 
racteres dentro de un texto. La sintaxis de esta función es: 


Mid(Texto, Principio [, Longitud]) 


El primer parámetro es el texto (o variable texto) que se quiere analizar. A 
continuación viene la posición del carácter (o el primer carácter del grupo) que se 
quiere obtener. El último parámetro opcional especifica el número de caracteres 


Chr(32) equivale al 
carácter espacio. 
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que se quiere obtener. A continuación se muestran algunos ejemplos de cómo uti- 
lizar esta función: 


NombreLenguaje = "Visual Basic Scripting Edition” 

X = Mid(NombreLenguaje, 1, 6) 'X = "Visual" 

Y = Mid(NombreLenguaje, 1, 7) 'Y = "Visual " ¡obsérvese el espacio! 
Z = Mid(NombreLenguaje, 8, 5) 'Z = "Basic" 


Si se omite el último parámetro se obtiene una copia del resto del texto (comen- 
zando, por supuesto, a partir de la posición especificada por el segundo parámetro): 


NombreLenguaje = "Visual Basic Scripting Edition" 
X = Mid(NombreLenguaje, 8) 'X = "Basic Scripting Edition" 


A continuación se muestra un ejemplo que cuenta el número de espacios de un 
texto utilizando las funciones Len y Mid en un bucle For-Next: 


Dim MiTexto, NumeroEspacios, Longitud, Posicion 


MiTexto = txtCuadrol.Text 


NumeroEspacios = O 

Longitud = Len(MiTexto) 

For Posicion = 1 To Longitud 

If Mid(MiTexto, Posicion, 1) = Chr(32) Then 
NumeroEspacios = NumeroEspacios + 1 

End If 

Next 


En cada vuelta del bucle For-Next: 
m La posición del carácter utilizada por la función Mid se incrementa en uno 
porque la variable Posicion es el contador del bucle. 


m Se extrae exactamente un carácter porque el tercer parámetro permanece 
invariable. 


CONSEJO: En el código anterior se podría utilizar una línea como ésta: 
If Mid(MiTexto, Posicion, 1) = *" Then 
Sin embargo, existe un problema potencial cuando se hace eso (se debe tener cuidado de 


poner exactamente un espacio dentro de las comillas). Es más seguro utilizar Chr(23) como 
carácter espacio cuando se necesite realizar la comprobación de un espacio. 


La función Mid tiene dos primas que son útiles ocasionalmente: Left y Right. 
Como los nombres sugieren, Left obtiene caracteres del principio de un texto y 
Right obtiene caracteres del final. De las dos, la función Right es la más común- 
mente utilizada. Evita una resta dentro de la función Mid y como resultado puede 
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trabajar un poco más rápido. Por ejemplo, las siguientes líneas obtienen los cuatro 
últimos caracteres del texto A: 


Mid(A, Len(A) - 3, 4) 
Mid(A, Len(A) - 3) 
Right(A, 4) 


La función Left funciona de la misma forma pero sólo ahorra la utilización de 
un 1 como segundo parámetro de la función Mid. Si se quieren los 10 primeros 
caracteres de un texto, utilícese una de las siguientes líneas: 


Mid(A, 1, 10) 
Leftí(A, 10) 


Función Replace 


Suponga que tan sólo se quiere cambiar parte de un texto existente. Esto se puede 
hacer en un instante con la nueva función Replace de VBScript. Por ejemplo, su- 
ponga que se quiere cambiar el texto «Java es el mejor lenguaje de programación» 
por «VBScript es el mejor lenguaje de programación». 

Este es el fragmento de código que haría eso: 


Test = "Java es el mejor lenguaje de programación" 
Test = Replace(Test, "Java", "VBScript") 


Recuerde que la función Replace asigna su resultado a una variable. General- 
mente será la misma variable con la que se está trabajando, aunque no tiene por 
qué. Por ejemplo, el siguiente código mantiene intacta la variable SuOpinionEs y 
sólo cambia la variable MiOpinionEs: 


“Java es el mejor lenguaje de programación" 


Su0pinionEs = 
= Replace(Su0pinionEs, "Java", “VBScript") 


Mi0pinionE 


La función Replace tiene mucha más potencia, por lo que examinaremos sus 
características utilizándolas en varias clases de ejemplos. Sin embargo, antes de 
hacer eso mostraremos la sintaxis de la función Replace: 


ón, Encontrar, SustituirPorl, Principiol, Contadorl, 


ón111) 


Replace (Expresi 
Comparac 


Se acaban de ver ejemplos de los tres primeros parámetros. El parámetro op- 
cional Principio permite indicar a VBScript la posición a partir de la que debe 
empezar a buscar el texto que necesita ser sustituido. (El parámetro Principio se 
combina generalmente con la función InStr, que se tratará posteriormente en este 
capitulo.) Si se omite el parámetro Principio, como se hizo en el ejemplo anterior, 
la función Replace comienza a mirar a partir del primer carácter del texto. 

El parámetro opcional Contador especifica el número de veces que se quiere 
hacer la sustitución cuando VBScript se encuentra múltiples copias del mismo texto. 
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Si se omite este parámetro, el comportamiento por defecto de la función Replace 
es sustituir todas las ocurrencias del texto. Por ejemplo, el siguiente código utiliza 
un parámetro Principio de 1 y un parámetro Contador de 1 para sustituir sólo la 
primera letra A por la letra B: 


PruebaTexto = "AARAAA” 
PruebaTexto = Replace(PruebaTexto, "A", "B*, 1, 1) 


El valor resultante de PruebaTexto es el texto «BAAAAA». 

El parámetro opcional Comparación es útil porque es el que indica si se puede 
hacer una sustitución que no tenga en cuenta que las letras estén en mayúsculas o 
en minúsculas. Todo lo que se tiene que hacer es utilizar una de las siguientes 
constantes embebidas: 


Constante Valor Descripción 


vbBinaryCompare 0 A pesar de su nombre, esta constante indica que la sustitución 
debería hacerse sólo si coinciden mayúsculas y minúsculas 


vbTextCompare 1 Esta constante indica que se ignore que las letras estén en 
mayúsculas o en minúsculas 


Finalmente, existen casos en los que se quieren utilizar valores extraños como 
parámetros de la función Replace. El más común de éstos es aquél en el que se 
quiere borrar algo de una expresión. Para hacer esto, se asigna el texto vacío (o de 
longitud 0) al parámetro SusituirPor, como se muestra a continuación: 


FaltaLaLetral = Replace("Mississippi", “ir, **) 


El valor resultante de FaltaLaLetral es el texto «Msssspp». 
La siguiente tabla resume los resultados de otras situaciones especiales: 


Si El texto resultante es 


El texto primitivo (parámetro Expresión) Un texto vacio («») 
es un texto vacío («»). 

El texto que se quiere sustituir (parámetro El texto primitivo 
Encontrar) es un texto vacio, 


El parámetro Principio es mayor que la Un texto vacio 
longitud del texto primitivo 


El parámetro Contador es 0 El texto primitivo 


El texto primitivo es Null Un error. (Véase el Capítulo 7 para conocer más 
acerca de Null y de la potencia de manejo 
de errores de VBScript.) 
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Utilización de las funciones InStr e InStrRev 
para encontrar partes de textos 


Ya se han visto las diferentes funciones Trim que permiten eliminar los espacios 
extra de los extremos de un texto. Suponga que se quiere asegurar que no existan 
dobles o triples espacios dentro de un texto. Su primer instinto sería utilizar una 
línea como ésta: 


EspaciosBorrados = Replace(TextoConEspacios, " ", " ") 


Esto recorre el texto y sustituye cada ocurrencia de dos espacios por un único 
espacio. El problema es que se podría tener que repetir el proceso (todo lo que 
puede hacer esta línea es reducir en uno el número de espacios consecutivos cada 
vez que se utiliza), Es necesario programar algo que se pueda describir de la si- 
guiente forma: 


Do While todavía existen áreas con más de un espacio 
Utilizar Replace(TextoConEspacios, " ", * *) 
Loop 


Para transformar esta descripción general en código VBScript es necesaria una 
función que diga si un texto es parte, o no, de otro texto. Es decir, es necesario 
saber si un texto es una subcadena de otro, La función VBScript que hace esto se 
llama Instr (abreviación del inglés «in string» que significa «en el texto»). Cuando 
se utiliza Instr, VBScript busca el texto primitivo, comenzando a partir de la pri- 
mera posición, hasta que encuentra la subcadena. 

La sintaxis de la función Instr es ésta: 


Instr([Principio; | TextoPrimitivo, Subcadenal, Comparación] 


El primer parámetro opcional especifica desde qué posición se empieza la bús- 
queda. Si se omite este parámetro, la búsqueda comienza automáticamente desde 
la primera posición. Los parámetros TextoPrimitivo y Subcadena especifican el 
texto primitivo en el que se realiza la búsqueda y la subcadena que se busca, 
respectivamente. El parámetro opcional Comparación permite especificar si la 
búsqueda debe tener en cuenta que las letras estén en mayúsculas o en minúscu- 
las. Se pueden utilizar las mismas constantes embebidas que permite la función 
Replace para este parámetro: vbBinaryCompare para que en la búsqueda se ten- 
gan en cuenta las mayúsculas y las minúsculas y vbTextCompare para ignorarlo. 
Como en la función Replace, cuando se omite este parámetro la función Instr 
realiza por defecto una búsqueda en la que se tienen en cuenta las mayúsculas y 
las minúsculas. 

Si VBScript no encuentra la subcadena devuelve el valor 0. Esto es exacta- 
mente lo que se necesita utilizar para borrar todas las ocurrencias de múltiples 
espacios dentro de un texto. Este es el código: 
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EspaciosBorrados = ReplacelTextoPrimitivo, "os, * *) 


Do While Instr(EspaciosBorrados, * ") <> 0 
EspaciosBorrados = Replace(EspaciosBorrados, " *, " " 
Loop 


En VBScript, la constante embebida False es igual a 0, y la constante embebi- 
da True es igual a —1. A la inversa, si se incluye un número en una expresión 
boolena, 0 se evalúa como False mientras que cualquier número que no sea cero se 
evalúa como True. Puesto que la función Instr devuelve el valor 0 (False) cuando 
VBScript no encuentra un carácter, o un valor diferente de O (True) cuando sí que 
lo encuentra, esta función se utilizará muy a menudo en la condición de sentencias 
If-Then-Else o bucles Do. Por ejemplo, se puede escribir una sentencia If-Then- 
Else como la siguiente: 


If Instr(ExpresionNumerica ",") Then 

MsgBox "Se ha encontrado un punto decimal," 
Else 

MsgBox "No se ha encontrado un punto decimal." 
End I£ 


También se podría haber escrito esto: 


If Instr(ExpresionNumericam ".") <>0 Then 
MsgBox "Se ha encontrado un punto decimal," 
Else 

MsgBox "No se ha encontrado un punto decimal." 
End If 


CONSEJO: La estructura del bucle utilizado en este código para eliminar los espacios 
extra es muy común cuando se trabaja con ocurrencias repetidas de una subcadena, Bene- 
ficiándose del hecho de que 0 se evalúa como False mientras que los números diferentes de 
0 se evalúan como True, mucha gente prefiere utilizar una variable ayudante «Encontrado» 


para hacer el código más claro. En líneas generales sería lo siguiente: 


Encontrado = Instr(TextoPrimitivo, Subcadena) 
Do Until Not Encontrado 
Hacer lo que sea necesario; se encuentra la siguiente instancia 
de la subcadena 
Encontrado = Instr(TextoPrimitivo, Subcadena 
Loop 


La idea es que la variable Encontrado cambie a False cuando no se vuelva a 
encontrar la subcadena. Esto a su vez permite que VBScript pare el bucle Do. 

Finalmente, también existe una función InStrRev que devuelve la posición de 
un texto dentro de otro, pero esta vez comenzando desde el final del texto. La 
sintaxis de la función InStrRev es ésta: 


InStrRev(TextoPrimitivo, Subcadenal, Principiol, Comparación] ] 
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ARRAYS 


Un ejemplo de utilización de InStrRev sería la comprobación de la extensión 
del nombre de un archivo escrito por un usuario. Por ejemplo, para comprobar que 
el nombre de un archivo tiene una extensión .jpg (utilizada para imágenes con el 
formato jpeg), se podría utilizar una línea como ésta: 


IE InStrRev(NombreArchivo, *.jpg") = Len(NombreArchivo) - 4 Then 


Cuando se escribe el código que valida la información introducida por el usuario 
en una página Web, a menudo se necesitará desmontar un texto en piezas lógicas y 
examinar sus componentes. Por ejemplo, se podría necesitar dividir el nombre del 
usuario en su nombre de pila, la inicial de su segundo nombre y su apellido. A esto 
se le llama análisis de un texto. Para aprender a utilizar las potentes funciones de 
análisis de texto de VBScript, es necesario saber utilizar arrays. Los arrays tam- 
bién son necesarios cuando se trabaja con cuadros de listas. De hecho, comenzare- 
mos a utilizar un array en esta situación. 

Considérese la página Web mostrada en la Figura 5.1. Se quiere permitir que 
el usuario añada un elemento al cuadro de lista si éste todavía no está allí. Sabe- 
mos cómo añadir un elemento a un cuadro de lista (llamando simplemente el méto- 
do AddItem). Pero, ¿cómo se puede saber si un elemento está ya en un cuadro de 
lista? Es necesario hacer algo que en líneas generales se puede describir de la si- 
guiente forma: 


Ver cada uno de los elementos del cuadro de lista 
Si se encuentra el nuevo elemento, dejar de mirar 
Si no se encuentra el nuevo elemento, añadirlo 


Figura 5.1. Página Web con un cuadro de lista. 
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Para transformar esta idea en código VBScript real, es necesario saber que to- 
dos los elementos de un cuadro de lista se almacenan en una propiedad especial 
llamada, de forma natural, List. La propiedad List es el primer ejemplo que se ha 
visto de array. La idea es que una lista (o, como es más técnicamente llamada, un 
array de una dimensión) tenga posiciones para datos. Desgraciadamente, las posi- 
ciones están numeradas empezando por 0 en vez de por 1. Para acceder a las posicio- 
nes se utilizan paréntesis que contienen el número de dichas posiciones. Por ejemplo, 
CuadroLista.List(0) es el elemento de la primera posición, que es el primer elemen- 
to del array List y el primer elemento mostrado en el cuadro de lista; Cuadro- 
Lista.List(1) es el segundo elemento del cuadro de lista, y así sucesivamente. 

La propiedad ListCount de un cuadro de lista indica el número de elementos 
que existen en el cuadro de lista. Naturalmente, esto es lo mismo que el número de 
elementos del array List. 


AVISO: Puesto que los elementos de un array List están numerados comenzando por 0, 
el último elemento del array es éste: 


CuadroLista.List (ListCount-1) 
No es éste, como podría esperarse: 


CuadroLista.List (ListCount) 


A continuación se muestra el procedimiento de manejo del evento Click del 
botón de orden de la página Web de la Figura 5.1: 


Sub cmáBoton1_Click 
Dim I “Contador 
Dim Encontrado 


If Trim(txtCuadrol.Text) = ** Then Exit Sub 
Encontrado = False 


ListCount 
ext Then 


ontrado Or 1 CuadroLista 
txtCuadrol 


Do Until 
If CuadroListal.List(1) 
Encontrado = True 
Else 


End If 
Loop 


If Not Encontrado Then Cuadrolistal.AddItem txtCuadrol.Text 
TxtCuadrol.Text = ** 


End Sub 


NOTA: Enel código precedente se ha utilizado una nueva característica del lenguaje VB- 
Script (la sentencia Exit). Esta sentencia provoca que el procedimiento de manejo de even- 
tos acabe prematuramente; es el equivalente a saltar directamente a la sentencia End Sub. 
En este caso, la sentencia Exit Sub se ejecuta si el usuario no ha introducido nada (o sólo ha 
introducido espacios) en el cuadro de texto. 
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En general, una lista (o un array de una dimensión) es una forma de agrupar 
elementos de modo que se les pueda hacer referencia de forma individual median- 
te un índice. El índice es simplemente un número que se pone entre paréntesis; es 
la posición del elemento en el array. 

Los nombres de listas tienen que seguir las reglas de VBScript para nombres 
de variables. Para indicar a VBScript que trabaje con una lista se utiliza una varia- 
ción de la sentencia Dim que ya se ha visto. La única diferencia es que se necesita 
añadir el índice máximo entre paréntesis. Por ejemplo, la siguiente sentencia po- 
dría ser utilizada para identificar las ventas de un año: 


Dim VentaMensual (11) 


Esta sentencia Dim indicaría a VBScript que reservara 12 posiciones de me- 
moria. Dichas posiciones serían identificadas como: 


VentaMensual (0) 
VentaMensual (1) 


algún número 'Para las ventas de Enero 
= algún número 'Para las ventas de Febrero 


VentaMensual(11) = algún número 'Para las ventas de Diciembre 


Observe la ventaja de utilizar una lista. El siguiente código es muy volu- 
minoso: 


Dim VentasEnEnero, VentasEnFebrero, VentasEnMarzo, VentasEnAbril, 

Dim VentasEnMayo, VentasEnJunio, VentasEnJulio, VentasEnAgosto, 

Dim VentasEnSeptiembre, VentasEnOctubre, VentasEnNoviembre 
VentasEnDiciembre 


VentasEnEnero = InputBox("Introduzca las ventas del próximo mes:") 
VentasEnFebrero = InputBox("Introduzca las ventas del próximo mes 
VentasEnMarzo = InputBox("Introduzca las ventas del próximo mes:") 
VentasEnAbril = InputBox("Introduzca las ventas del próximo mes:") 
VentasEnmayo = InputBox(*"Introduzca las ventas del próximo mes:" 

VentasEnJunio = InputBox("Introduzca las ventas del próximo mes:") 
VentasEnJulio = InputBox("Introduzca las ventas del próximo mes 
VentasEnAgosto = InputBox ("Introduzca las ventas del próximo mes 
VentasEnSeptiembre = InputBox("Introduzca las ventas del próximo 


mes:*") 
VentasEnO0ctubre = InputBox("Introduzca las ventas del próximo 
mes:*) 
VentasEnNoviembre = InputBox("Introduzca las ventas del próximo 
mes:") 
VentasEnDiciembre = InputBox("Introduzca las ventas del próximo 
mes:") 


pero con una lista, se puede utilizar este código: 


Dim I 
Dim VentaMensual (11) 'reserva 12 posi 


nes 
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For I = 0 To 11 
VentaMensual = InputBox(“Introduzca las ventas del próximo mes:") 
Next 


Arrays dinámicos frente a arrays estáticos 


El array VentaMensual es un ejemplo de array: estático. Esto es porque se fija su 
tamaño en la sentencia Dim. Sin embargo, se podría necesitar un array cuyo tama- 
ño pudiera cambiar durante la ejecución del programa, A éste se le llama array 
dinámico. Para crear un array dinámico, cuyo tamaño se pueda cambiar dentro de 
un procedimiento de manejo de eventos, se utilizan simplemente los paréntesis sin 
el índice máximo y se asegura que el array sea una variable al nivel de script: 


Dim gCosasQueHacer () 


Ahora suponga, por ejemplo, que se quiere activar la página Web mostrada en 
la Figura 5.2 y almacenar el contenido de la lista Cosas Pendientes en un array. 
Cada vez que el usuario añada o borre un elemento es necesario cambiar el tamaño 
del array. Esto se puede hacer con la sentencia ReDim: 


ReDim gCosasQueHacer(CuadroListal.ListCount - 1) 


NOTA: La utilización de la sentencia ReDim borra el contenido de un array. También se 
puede utilizar una versión especial de la sentencia ReDim que mantiene los datos intactos, 
Se llama ReDim Preserve. 


Figura 5.2. Página Web de cosas que hacer. 
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Cuando se comienza a aumentar o disminuir el tamaño de un array, es vital (en 
bucles For-Next, por ejemplo) tener una forma de conocer el límite superior ac- 
tual. Esto se hace con la función Ubound. Un bucle For-Next cuyo código comien- 
za de esta forma recorrería todos los elementos de un array: 


For I = 0 To Ubound(UnArray) 


Finalmente, mediante la utilización de la sentencia ReDim dentro de un proce- 
dimiento de manejo de eventos se puede cambiar el tamaño de un array local a 
dicho procedimiento. Por ejemplo: 

Sub cmdAsignaNumeroDeElementos_Click 


Dim NumeroDeElementos 


NumeroDeElementos » InputBox("¿Cuántos elementos van a ser hoy?" 


ReDim Elementos (NumeroDeElementos 


Cada vez que el usuario pulse el botón, VBScript crea un nuevo array (porque 
no se utilizó ReDim Preserve) con un tamaño especificado por el valor introduci- 
do en el cuadro de entrada. 

Siempre hay que tener en cuenta la diferencia entre las dos acciones siguien- 
tes: en primer lugar, la utilización de la sentencia Dim fuera de cualquier procedi- 
miento y luego la utilización de ReDim dentro de un procedimiento para asignarle 
un tamaño; en segundo lugar, la utilización de la sentencia ReDim únicamente 
dentro de un procedimiento para crear un array local. 

En el primer caso, el array puede ser visto por todos los procedimientos de 
manejo de eventos del script, y por eso, cualquier cambio que haga en el array uno 
de los procedimientos afectará al array en el resto de los procedimientos. En el 
segundo caso, el array no puede ser visto fuera de un procedimiento de manejo de 
eventos particular. (Cuanto más ampliamente disponibles estén los datos en las di- 
ferentes partes de un script, más fácil será introducir errores difíciles de depurar.) 


Arrays multidimensionales 


Lo mismo que las listas conducen a arrays de una dimensión, las tablas conducen 
a arrays multidimensionales. Por ejemplo, si se quiere hacer un array de dos di- 
mensiones con las tablas de multiplicación, se escribiría esto: 


Dim TablaMultiplicacion(9,9) 


Esto reserva 10 filas y 10 columnas en un total de 100 posiciones. (Recuerde 
que los arrays comienzan con la posición 0.) Para rellenar realmente la tabla se 
utiliza un bucle For-Next anidado: 
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For I = 0 To 9 
For J = 0 To 9 
TablaMultiplicacion(I, J) = (Do4 1) * (3 + 1) 
Next 
Next 


Conversión de variables en arra 


Una de las capacidades más asombrosas con respecto a los arrays es que se pueden 
asignar a variables que no utilizan paréntesis en su definición, y luego tratarlas 
como si fueran arrays normales y corrientes. VBScript proporciona dos formas de 
hacer esto. La primera es con la función Array, que transforma simplemente un 
grupo de datos en un array: 


Dim A 
A = Array(1,2,3,4) 


Ahora A(0) devuelve 1, A(1) devuelve 2, y así sucesivamente, También se 
puede declarar un array y luego asignarlo simplemente a otra variable: 


Dim TablaA, TablaMultiplicacion(9,,9) 
TablaA = TablaMultiplicacion 


Incluso se puede utilizar una variable que almacene temporalmente un array 
para «intercambiar» dos arrays. (Véase un ejemplo de esto en el siguiente capí- 
tulo.) 

Aunque anteriormente se ha dicho que la propiedad List de un cuadro de lista 
es un array, esto sólo es cierto en un sentido restringido. Funciona exactamente 
como un array en lo que a acceso de elementos se refiere (a través del indice), 
pero la propiedad List de un cuadro de lista no se puede asignar a una variable. 
Esto es una lástima, puesto que se terminará necesitando escribir un bucle For- 
Next para transferir el contenido de un cuadro de lista a un array en futuros pro- 
cesamientos: 


Dim I 


ReDim ArrayDeLista(CuadroListal.ListCount-1) 


For I = 0 To CuadroLístal.ListCount-1 
ArrayDeLista(I) = CuadroListal. bisti I) 
Next 


Si se pudiera asignar la propiedad List como se mencionó anteriormente, se 
podría hacer esto: 


ArrayDeLista = CuađroListal.List 


Bueno, quizá se añada esta característica en la siguiente versión de VBScript. 
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Análisis y construcción de textos 


Ya se ha visto que la función Mid se puede utilizar para dividir un texto sobre una 
base carácter a carácter. Si se tiene la intención de escribir código, con Mid se 
puede hacer cualquier tipo de manipulación del texto. El código puede resultar 
complejo, por lo que VBScript tiene muchas funciones potentes que ahorran tra- 
bajo en la construcción y división de textos. Todas estas funciones también valen 
para arrays. Por ejemplo, la función Join toma un array de textos y crea de golpe 
un nuevo texto con ellos. Esto ahorra el trabajo de codificar un bucle For-Next que 
junte los textos individuales (e incluso funciona más rápido). 

A continuación se muestra un ejemplo de la función Join. Suponga que previa- 
mente se ha almacenado una lista de nombres en un array, como aparece en el 
siguiente código: 


Dim MisSobrinos (5) 
MisSobrinos(0) = "M. Isabel" 
MisSobrinos(1) = "Fernando" 


Ahora se puede escribir simplemente una línea de código que visualice todos 
los nombres en un cuadro de mensaje, como se muestra a continuación: 


MsgBox "Hola" £ Join(MisSobrinos) 


Sin embargo, las verdaderas estrellas del grupo de funciones que construyen y 
dividen textos son las funciones Split y Filter. Primero se tratará la función Split. 
Por ejemplo, suponga que se tiene el nombre de alguien: 


Bertrand Arthur William Rusell 


La función Split puede coger este texto y devolver un array de cuatro textos: 


m La entrada del primer array (con el índice 0) = «Bertrand». 
m La entrada del segundo array = «Arthur». 

m La entrada del tercer array = «William». 

m La entrada del último array = «Rusell». 


A continuación se muestra el código para hacer esto y para mostrar los resulta- 
dos en cuadros de mensaje sucesivos (observe el uso de la función Ubound): 


Dim Prueba, A, T 


"Bertrand Arthur William Rusell* 
t (Prueba) 


For 1 = 0 To Ubound(A) 
MsgBox A(I) 
Next 
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Observe cómo en este código se utiliza una variable corriente (una variable 
no declarada como array) para guardar el array devuelto por la función Split. 
Siempre que se utilice la función Split se tendrá que utilizar una variable de esta 
manera. 

La forma más sencilla de la función Split divide un texto en las partes que 
están separadas por espacios individuales. Sin embargo, no funciona muy bien 
cuando el usuario ha introducido inadvertidamente múltiples espacios. Por ejem- 
plo, si se cambia el valor de la variable Prueba por el del siguiente ejemplo, apare- 
cerá un grupo de cuadros de mensaje vacíos debido a los espacios extra: 


Dim Prueba, A, 1 


Prueba = "Bertrand Arthur: William Rusell* 
A = Split (Prueba) 


For I = O To Ubound(A) 
MsgBox A(I) 
Next 


La solución más sencilla es utilizar simplemente la función Replace para bo- 
rrar los espacios extra, como se vio anteriormente, antes de utilizar la función Split. 


La potencia completa de la función split 


Aunque la función Split divide por defecto un texto por sus espacios, cuando se 
utilizan algunos de sus parámetros opcionales se pueden hacer más cosas. Por ejem- 
plo, se puede indicar a la función Split que las divisiones las marque la barra in- 
versa. (Cualquier carácter que se especifique se llama delimitador.) Esto permite 
analizar fácilmente el camino completo del nombre de un archivo. El siguiente 
código divide el nombre de un archivo en sus diferentes componentes: 


it (NombreArchivo, *\*) 
o Ubound(A) 

MsgBox A(1) 
Next 


La sintaxis completa de la función Split es ésta; 


Split (Expresión[, Delimitador[, Contadorl, Comparación]]]) 

El parámetro delimitador es el texto que marca las divisiones. (Por cierto, no 
tiene que ser un único carácter.) Si se omite, VBScript asume que se quiere que el 
carácter espacio sea el que marque la división del texto. El parámetro opcional 
Contador indica a VBScript el número de subcadenas que se quiere que tenga el 
array. Omitiéndolo (o utilizando —1) VBScript devuelve todas las subcadenas. El 
parámetro Comparación funciona como siempre; si el delimitador es alfabético 
decide si se tiene en cuenta que esté en mayúsculas o minúsculas. 
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NOTA: Las subcadenas individuales obtenidas como resultado de la utilización de la fun- 
ción Split se podrían ver denominadas como señales. 


La función Filter 


La función Filter toma un array de textos y devuelve un nuevo array que incluye 
sólo aquellas entradas que satisfacen el filtro, o sólo aquellas que no lo satisfacen. 
(La función Filter se aplica a menudo con arrays obtenidos como resultado de la 
utilización de la función Split.) 


NOTA: Dela misma forma que la propiedad List de un cuadro de lista no se puede utili- 
zar directamente en una sentencia de asignación (incluso aunque esta propiedad sea un 
array), tampoco se puede utilizar directamente en la función Filter. Por este mismo motivo, 
tampoco se puede utilizar por ninguna otra función que necesite un array. 


Por ejemplo, suponga que un array llamado NombresGruposNoticias contiene 
los nombres de los grupos de noticias de Internet. Estos nombres incluyen puntos 
(por ejemplo, rec.art.dance o comp.lang.basic). La primera parte del nombre (an- 
tes del primer punto) define la jerarquía. Se quiere filtrar todos los grupos de no- 
ticias de la jerarquía alt porque ésta es la jerarquía que contiene los grupos de 
noticias con mensajes que no se quiere que vean los niños. Éste es todo el código 
que se necesita: 


GruposNoticiasFiltrados = Filter(NombresGruposNoticias, "alt.", False) 


Ahora el array GruposNoticiasFiltrados contiene exactamente lo que se quiere. 

En este ejemplo, el nuevo array se creó eliminando las entradas que contenían 
el texto buscado. Esto fue controlado por el tercer parámetro. Si se cambiara a 
True, se incluirían las entradas que contuvieran el texto buscado: 


GruposNoticiasAlt = Filter (NombresGruposNoticias, "alt.”, True) 
La sintaxis de la función Filter es ésta: 
Filter (TextosEntrada, Valorl, Incluirl, Comparación]]) 


El valor por defecto del parámetro Incluir es True, y el parámetro Compare 
funciona como siempre. 


CÓMO DAR FORMATO A LA SALIDA 


VBScript proporciona las siguientes funciones para formatear números cuando se 
visualizan: 
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m FormatNumber. 

m FormatPercent. 

m FormatCurrency. 

m FormatDateTime. 

Trabajemos primero con la función FormatNumber, puesto que es la más co- 


mún de las cuatro, Por ejemplo, suponga que se quieren mostrar dos decimales de 
la variable ElNumero. Todo lo que se tiene que hacer es utilizar esto: 


MsgBox FormatNumber (ElNumero, 2) 


NOTA: La función FormatNumber devuelve un texto en vez de un número, pero el resul- 
tado se puede convertir de nuevo a un número utilizando explícitamente una función de 
conversión o dejando que VBScript haga su conversión automática. (VBScript convierte au- 
tomáticamente un texto en un número cuando es necesario, por ejemplo, en un cálculo 
numérico. Esto no se recomienda, dejar que VBScript convierta automáticamente un texto 
con dígitos en un número es un caldo de cultivo de errores.) 


Como otro ejemplo, para modificar la calculadora de tablas de hipotecas del 
Capítulo 4, formateando los resultados para no dejarlos con tantos decimales, todo 
lo que se tiene que hacer es cambiar la sentencia: 


Hipotecalnicial.AddItem("Con un interés de * á Interes £ _ 
*, la cuota es de " £ Cuota) 


por 


Hipotecalnicial.AddItem(*Con un interés de " & Interes á _ 
», la cuota es de * £ FormatNumber(Cuota, 2)) 


Naturalmente, esto todavía no es perfecto porque el resultado es semejante al 
de la Figura 5.3 de la siguiente página. 

Sería interesante cambiar los tipos de interés para mostrarlos como porcentajes. 
Esto se puede hacer con la función FormatPercent, que convierte un número deci- 
mal en un porcentaje. El formato más común de la función FormatPercent es éste: 


FormatPercent (Expresión, NumeroDecimales 


El segundo parámetro se utiliza para indicar el número de decimales que se 
quieren. Por ejemplo, el resultado de la utilización de la siguiente sentencia en la 
calculadora de tablas de hipotecas es el mostrado en la Figura 5.4: 


Hipotecalnicial.Addltem("Con un interés del " & 
FormatPercent (Interes, 2) £ _ 
", la cuota es de "a _ 
FormatNumber (Cuota, 2)) 
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ar un vien del OLD. cada es de 
Con un interés del 0.96125, lo cuota es de 507.51 
Con un interés del 0.0625 la 


Con un interés. la cura es 
Con un intenta det 0.0675. la cuña es de GARSO 


Figura 5.3. Cuotas formateadas en la tabla de hipotecas. 


Naturalmente, a algunas personas les gustaría ver los pagos formateados como 
moneda. Esto se puede hacer sustituyendo la función FormatNumber por la fun- 
ción FormatCurrency, que devuelve un texto con el símbolo de cualquiera de las 
monedas definidas por el sistema. Como ejemplo, el resultado de la utilización de 
la siguiente sentencia es el mostrado en la Figura 5.5 de la página siguiente: + 


Con un interés del 5 ESX. la cuota es de SADS) 
Conun interés del 6.75, ls cuota es de 640 50 


Figura 5.4. Tipos de interés formateados en la tabla de hipotecas. 
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Figura 5.5. Tabla de hipotecas correctamente formateada. 


Hipotecalnicial.AddItem("Con un interés del * & _ 
FormatPercent (Interes, 2) & L 
", la cuota es de "á _ 
FormatCurrency(Cuota, 2)) 


Finalmente, la función FormatDateTime es algo diferente, La idea es que se 
proporcione una expresión de tipo fecha (algo que VBScript pueda interpretar como 
una fecha, como #1/1/98# o Now + 100) y un formato, como se muestra en el 
siguiente código: 


MsgBox FormatDateTime(Now, vbGeneralDate) 
El resultado se muestra en la Figura 5.6. 


La tabla de la página siguiente describe las constantes que se pueden usar como 
segundo parámetro y el resultado de utilizarlas. 


Figura 5.6. Formato de fecha general en un cuadro de mensaje. 
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Constante Ejemplo de resultado 

vbLongDate Wednesday, July 08, 1997 (el formato de fecha larga de la configuración 
regional de la computadora) 

vbShortDate 7/8/97 (el formato de fecha corta de la configuración regional de la 
computadora) 

vbLongTime 8:01:01 PM (el formato de tiempo especificado en la configuración regional 
de la computadora) 

vbShortTime 20:01 (formato de 24 horas) 


vbGeneralDate 7/8/97 3:31:03 PM (una combinación de la fecha corta y la hora larga) 


LA FUNCIÓN RDN Y LA SENTENCIA RANDOMIZE 


Los juegos de cartas, como la mayoría de los juegos, tienen un desarrollo imprede- 
cible. Esto es exactamente lo que se entiende por un juego de azar. Por otra parte, 
las computadoras son máquinas, y el comportamiento de las máquinas es (bueno, 
al menos debería ser) predecible. Para escribir un programa en VBScript que per- 
mita, por ejemplo, sacar números de lotería o simular el lanzamiento de un dado, 
es necesaria una función que haga que el funcionamiento de la computadora pa- 
rezca aleatorio. Esto se hace mediante la función Rnd. Por ejemplo, ejecútese el 
siguiente script: 

<HTML> 

<HEAD> 


<TITLE>Ejemplo de número aleatorio</TITLE> 
<SCRIPT LANGUAGE="VBSCRIPT*> 


Option Explicit 


Dim I 


For I = 1 To 10 
Document .Write Rná 
Document .Write "<BR>" 

Next 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 
Se verá la pantalla mostrada en la Figura 5,7. 


Como se puede ver, 10 extraños números entre el O y el 1 llenan la pantalla. 
Estos números no parecen seguir un patrón (son aleatorios). También tienen mu- 
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0,7055475 
0,533424 
0,5795136 
0,2895625 
0,301948 


0,7747401 
1,401764E-02 
0,7607236 
0,81449 
07090379 


Figura 5.7. Ejemplo de números aleatorios. 


chas, pero no todas, las sofisticadas propiedades estadísticas que los científicos 
esperan de los números aleatorios. 

Cada vez que VBScript procésa la línea que contiene la sentencia «Docu- 
ment.Write Rdn», se genera un número diferente entre O y 1. El número puede 
ser 0, pero nunca puede ser 1. A menudo se quiere simplemente almacenar el valor 
del número aleatorio en una variable, como a continuación: 


NumeroAleatorio = Rnd 


Es natural preguntarse para qué es un bueno un número de extraña apariencia 
con más de siete decimales. Suponga, por ejemplo, que se querría escribir un pro- 
grama que simulara la tirada de una moneda. Existen tres posibilidades: podría 
ser cara, podría ser cruz, o podría quedar de canto. (No espere que suceda esta 
última posibilidad.) El código para simular la tirada de una moneda podría ser 
como este: 


<HTML> 
<HEAD> 
<TITLE>Simulador de la tirada de una moneda</TITLE> 


<SCRIPT LANGUAJE="VBSCRIPT"> 


<!-- 
Option Explicit 
Dim Tirada 


Tirada = Rnd 
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If Tirada < .5 Then 
MsgBox "Cara" 
ElseIf Tirada = .5 Then 
MsgBox "¡¡¡¡Ha quedado de canto!!!!* 
Else 
MsgBox "Cruz" 
End If 


</SCRIPT> 


</BEAD> 
<BODY> 


</BODY> 
</HTML> 


Esto parece que funciona, pero si se vuelve a cargar la página varias veces 
(pulsando el botón Actualizar o la tecla FS) ¡se observa que siempre se obtiene el 
mismo resultado! Esto sería, por supuesto, insólito en una moneda sin trucar. ¿Qué 
está sucediendo? 

De hecho, los números que se obtienen de la utilización de la función Rnd son 
sólo pseudoaleatorios. Pseudo significa «aparentemente cierto», y se acaba de ver 
uno de los problemas de los números pseudoaleatorios. Cada vez que se arranca 
un script que utiliza números pseudoaleatorios, se obtiene la misma secuencia. El 
script opera como si la memoria de la computadora contuviera un libro con dichos 
números, y una vez terminado el script, el libro vuelve de nuevo a la primera pági- 
na. El libro siempre empieza en el mismo lugar, y los números están siempre en el 
mismo orden; por tanto, los resultados son fijos. Es necesaria una forma de barajar 
las páginas cada vez que se arranque el programa. Esto se puede hacer de muchas 
maneras, pero la más fácil es utilizar la sentencia Randomize antes de usar la fun- 
ción Rnd, como se muestra en el siguiente código; 


Dim Tirada 


Randomize 'barajar 
Tirada = Rnd 


If Tirada < .5 Then 
MsgBox "Cara" 
ElseIf Tirada = .5 Then 
MsgBox "¡¡¡¡Ha quedado de canto!!!!* 
Else 
MsgBox "Cruz" 
End If 


Escalado 


Los números entre O y 1 podrían (con un poco de trabajo) ser buenos para imitar la 
tirada de una moneda, pero el método utilizado anteriormente sería demasiado 
engorroso para, por ejemplo, un programa de sorteo de lotería con 48 números. En 
líneas generales, se necesitaria hacer algo así: 
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Si el número aleatorio es menor que 1/48 extraer un 1 
Si el número está entre 1/48 y 2/48 extraer un 2 
Si el número está entre 2/48 y 3/48 extraer un 3 


Pensando en esto se llega a un sencillo truco llamado escalado, que automatiza 
más o menos este proceso. Suponga que se coge un número entre O y 1 y se multi- 
plica por 48. Si fuera menor de 1/48 ahora sería menor de 1; si estuviera entre 1/48 
y 2/48 ahora estaría entre 1 y 2 (pero nunca 2), y así sucesivamente. Para obtener 
un número de lotería, todo lo que es necesario hacer es multiplicar el número por 
48 y redondearlo por arriba. 

Desgraciadamente, no existen funciones VBScript que redondeen un número 
por arriba, La manera más fácil de hacer esto es con la función Fix, que desprecia 
la parte decimal de un número. Por ejemplo: 


m Fix(4.456) = 4, 

m Fix(-9.9998) = -9, 

m Fix(8) = 8. 

Añadiendo uno al resultado de aplicar la función Fix a un número positivo se 
consigue un redondeo por arriba. Por ejemplo, obsérvese el siguiente fragmento: 
'Simulador de dado utilizando la función Fix 
Randomize 
Dado = Fix(6 * Rnd) + 1 


MsgBox "Ha sacado un * £ Dado 


La clave del fragmento es que el número entre paréntesis (6 * Rnd) está siempre 
entre O y 6, pero no puede ser exactamente 6 porque el valor de Rnd nunca es 1. 
Aplicando la función Fix se obtiene un entero entre O y 5 (es decir, 0, 1, 2, 3, 4 o 5), 
y luego sólo se tiene que añadir 1 para que parezca propiamente un dado. 

Todos los enteros aleatorios que se han utilizado han comenzado en 0 o en 1. A 
veces es conveniente tener enteros aleatorios que abarquen un rango. Por ejemplo, 
¿Cómo se obtendría un entero aleatorio entre 65 y 90 (el rango de los códigos ANSI 
de las letras mayúsculas del alfabeto)? Para obtener un número aleatorio en este 
rango se deben realizar los siguientes pasos: 


1. Generar un entero aleatorio entre O y 25. 


2. Añadir 65 al entero aleatorio para obtener el valor ANSI de una letra ma- 
yúscula, 


La transformación de estos pasos en código sería: 


NumeroCaracter = Fix(26 * Rnd) +65 
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El bombo de la lotería como un script 


En realidad, escribir un script que permita que alguien genere números de lotería 
es un poco difícil. El problema es que se necesita una forma de seguir el rastro de 
los números que ya se han generado. La forma más fácil de hacer esto es crear un 
array y «marcar» los números que se han utilizado. A continuación se muestra el 
código que visualiza un cuadro de mensaje con seis números diferentes entre el 1 
y el 48 cada vez que se pulsa el botón. Aunque el listado del código es corto, es 
algo difícil, por lo que se explicará linea por línea una vez que haya tenido la 
oportunidad de examinarlo: 


Sub cmdBotonl_Click 


Dim NumerosUtilizados(47), NumerosAJugar (5). UnNumero 


NumeroEncontrado, I 
Randomize 


For I = O To 47 
NumerosUtilizados(I) = I + 1 
Next 


For I = 0 To 5 

NumeroEncontrado = False 

Do Until NumeroEncontrado 
UnNumero = Fix(48 * Rnd) 


If NumerosUtilizados(UnNumero) <> O Then 


NumerosAJugar (I) = NumerosUtilizados (UnNumero 
NumerosUtilizados (UnNumero) = 0 
NumeroEncontrado = True 
End If 
Loop 
Next 


MsgBox "Estos son los números obtenidos: " á Join(NumerosAJugar) 


End Sub 


La llamada a la función Randomize indica a VBScript que asegure que se ha- 
gan elecciones diferentes cada vez que se pulse el botón. A continuación se rellena 
un array con los números de la lotería (del 1 al 48 en este caso). Cada vez que 
alguien pulsa el botón, los números se rellenan de nuevo para que se pueda volver 
a empezar. 

Ahora es necesario elegir seis números que rellenen el array de los números 
elegidos. 

El verdadero trabajo se hace en el bucle Do. Lo que hace es generar un nuevo 
número aleatorio entre O y 47. A continuación se comprueba el array Numeros- 
Utilizados; si la entrada allí no es 0, ésta se copia al array NumerosAJugar y luego 
le asigna el valor 0. De esta forma, un siguiente intento de obtener este número no 
funcionará (la cláusula If no volverá a ser cierta). También se asigna el valor True 
a la variable NumeroEncontrado para indicar al bucle Do que pare. Después del 
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bucle Do, VBScript encuentra la palabra clave «Next». Esta arranca de nuevo del 
proceso hasta que se obtienen los seis números. Finalmente, se utiliza la función 
Join para mostrar todos los números encontrados, como aparece en la Figura 5.8. 


Más acerca de Rnd y Randomize 


Además de la utilización de la función Rnd para generar números aleatorios, VB- 
Script da la posibilidad de recuperar el último número aleatorio generado. Esto se 
hace utilizando Rnd(0). Esto es útil cuando se intenta depurar un programa. Imagi- 
nese tratando de depurar un programa en el que cambiara un número importante 
cada vez que se ejecutara. 

A continuación, suponga que existe un número negativo dentro de los parénte- 
sis de la función Rnd. (El número entre paréntesis se llama generalmente semilla.) 
La semilla se puede ver como el número a partir del cual crecen los números alea- 
torios, Cada vez que se utiliza la misma semilla negativa se obtienen los mismos 
números pseudoaleatorios, 

Esta es otra importante herramienta de depuración. Permite volver a ejecutar 
un programa manteniendo los números pseudoaleatorios temporalmente estables. 
Una buena forma de ver lo que hace una semilla negativa es imaginar que existen 
listas de números pseudoaleatorios, cada una de las cuales corresponde a una dife- 
rente semilla negativa. 

Finalmente, la sentencia Randomize también puede ser una útil herramienta de 
depuración. Esto se debe a que se puede utilizar con una expresión numérica. Si 
primero se utiliza la función Rnd con un número negativo para «plantar una nueva 
semilla» en el generador de números aleatorios y luego se pone una sentencia Ran- 
domize con un número, el programa siempre obtendrá el mismo conjunto de nú- 
meros aleatorios. Por tanto, para generar secuencias reproducibles de números alea- 
torios se debe utilizar un código como éste: 


x = Rnd(-1) 'o cualquier otro número negativo para plantar una 
nueva semilla 
Randomize 37 “o cualquier otro número después de la palabra clave 


Randomize 


For I = 1 To 10 
MsgBox Rnd 
Next 


[Visual Basic 


Figura 5.8. Resultado del bombo de la lotería. 
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LA FUNCIÓN INT 


Existe otra función que trabaja de forma muy parecida a Fix (la función Int). Int 
redondea por abajo un número (el primer entero menor o igual al número). Vién- 
dola como una función de redondeo por abajo es fácil recordar lo que pasa con los 
números negativos. Con los números negativos se baja un número. Por ejemplo, 
Int(3.5) es 4, Int(—4.1) es -S, y así sucesivamente. Se puede ver que las funcio- 
nes Fix e Int funcionan de la misma forma para números positivos pero de forma 
diferente con los números negativos. Utilizando Int y añadiendo 1, un número siem- 
pre se transforma en el siguiente entero mayor. 


Ejemplo: Cálculo de tasas postales 


Las funciones Fix e Int tienen otros usos. Considérese la página Web mostrada en 
la Figura 5.9. Como parte del nodo Web del servicio postal de Estados Unidos, 
esta página podría ser utilizada para calcular el franqueo de un artículo. 

La activación de esta página Web proporcionaría un buen ejemplo de utiliza- 
ción de la función Int. Por ejemplo, el coste de enviar un artículo por correo es de 
32 centavos para la primera onza (28.35 gr) y 23 centavos por cada onza o frac- 
ción adicional más. Supóngase que el peso de un artículo es de 4.4 onzas. El coste 
sería 32 centavos para la primera onza y 92 (4 * 23) centavos para las onzas adi- 
cionales, contando la fracción. El coste es: 


320423 * Int(4.4) 


Figura 5.9, Calculadora de tasas postales. 
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El siguiente código activa la página mostrada en la Figura 5.9. La única parte 
difícil es que se necesita convertir de nuevo el número a un texto para comprobar 
si es igual al texto con el que se empezó. La función CStr permite hacer esto: 


Sub emdCalcular_Click 
Dim Peso, Coste 


Peso = txtCuadrol.Text 
If CStr(Int(Peso)) = Peso Then 
Coste = ,32 + .23 * (Peso - 1) 
Else 
Coste = .32 + .23 * (Int(Peso)) 
EndIf 


MsgBox "Costará * £ FormatCurrency (Coste) _ 
á * enviar este artículo por correo. 


End Sub 


FUNCIONES DE FECHA Y HORA 


Ya se ha visto la función FormatDateTime, que permite formatear valores de fe- 
cha y hora. VBScript tiene otras muchas funciones embebidas que se pueden utili- 
zar para trabajar con variables de fecha y hora. Por ejemplo, ya se ha visto la 
función Now que devuelve la fecha y hora actual, La función Date, por otra parte, 
sólo devuelve la fecha actual; el formato usual es mm/dd/aa. 

Para el mes y el día se utilizan uno o dos dígitos; para el año se utilizan dos 
dígitos si está entre 1900 y 1999 y cuatro dígitos para el resto de los años (por 
ejemplo, 31/1/90 para el 31 de Enero de 1990 y 10/10/2001 para el 10 de Octubre 
del 2001). La función Time devuelve la hora actual, pero no la fecha. De esta 
forma, se puede ver que: 


Now = Date & Time 


A continuación, para realizar cálculos financieros de forma exacta, los progra- 
mas deben ser capaces de calcular el número de días que han pasado entre dos 
fechas (teniendo en cuenta los años bisiestos, si fuera posible). VBScript hace que 
esto sea fácil (y tiene en cuenta los años bisiestos, por supuesto). 

La información se almacena simplemente en dos variables de tipo date, se res- 
tan, y ya está todo hecho. (Recuerde que la información de una variable de tipo 
fecha se sitúa entre almohadillas.) Por ejemplo, suponga que se quiere crear una 
página Web que permita que alguien calcule el tiempo que falta hasta el 1 de Ene- 
ro del 2000. Esta página Web se muestra en la Figura 5.10. 

El contador hacia atrás del milenio tiene una etiqueta, un cuadro de texto lla- 
mado txtDiasQueFaltan y un botón llamado emdCalcular. El código que se necesi- 
ta es trivial: 


148 APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


Figura 5.10. Contador hacia atrás del milenio. 


Sub cmádCalcular_Click 
txtDiasQueFaltan = #1/1/2000# - Date 
End Sub 


Diversas funciones de fecha y hora 


Ocasionalmente se podría necesitar la función DateSerial. Su sintaxis es: 
DateSerial(Año, Mes, Día) 


Año es un número entre 100 y 99999, inclusive, Mes es un número entre 1 y 
12, y Día es un número entre 1 y 31, dependiendo del mes. Si se va más allá de 
estos límites en el caso del mes o del día, VBScript extrapola la fecha. Por ejem- 
plo, la siguiente línea de código muestra una fecha de Febrero: 


MsgBox DateSerial(1998, 1, 35) 


Si se pide a VBScript que haga un cálculo con una fecha, éste lo hará de forma 
especial. Por ejemplo, la siguiente línea de código devuelve el día anterior al pri- 
mer día del mes situado dos meses antes que Agosto (o el 31 de Mayo de 1998): 


DateSerial(1998, 8-2, 1-1) 


Existe un grupo de funciones que permite procesar fechas y horas. Estas son 
útiles cuando es necesario escribir aplicaciones que funcionan sobre una base dia- 
ria o incluso de minutos. La siguiente tabla lista todas las funciones de fecha y 
hora (para conocer más detalles, véase la ayuda interactiva): 


Función 
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Descripción 


Date 

DateAdd 
DateDiff 
DatePart 


DataSerial 


DataValue 
Day 

Hour 
Minute 
Month 
MonthName 
Now 
Second 
Time 


TimeSerial 


Weekday 
WeekdayName 


Year 


Devuelve la fecha actual 
Permite añadir un intervalo de tiempo especificado a una fecha 
Permite encontrar la diferencia entre dos fechas 


Devuelve el año, el trimestre, el mes, el día del año, el día, el día de la 
semana, la semana del año, la hora, el minuto o el segundo de una fecha 
determinada 


Devuelve una variable de tipo fecha correspondiente al día, mes y año 
especificados 


Coge un texto que representa una fecha y devuelve una variable de tipo date 
Devuelve un número correspondiente a la parte del día de una fecha 
Devuelve un número correspondiente a la parte de la hora de una fecha 
Devuelve un número correspondiente a la parte del minuto de una fecha 
Devuelve un número correspondiente a la parte del mes de una fecha 
Devuelve un texto correspondiente al mes especificado 

Devuelve la hora y fecha actuales 

Devuelve un número correspondiente a la parte de los segundos de una fecha 
Devuelve la hora actual 


Devuelve una variable de tipo fecha correspondiente a la hora, minuto y 
segundo especificados 


Devuelve un número correspondiente a la parte de la semana de una fecha 
Devuelve un texto que corresponde a la semana especificada 


Devuelve un número correspondiente a la parte del año de una fecha 


NOTA: Todas las funciones que devuelven textos obtienen su información de la máquina 
del usuario (no de la máquina en la que se escribió el código). Por ejemplo, la función 
MonthName devuelve «January» en una máquina que utiliza inglés, pero devuelve «Enero» 
en una máquina que utiliza español. Por eso, es mejor utilizar estas funciones que crear 
textos propios en un programa. 


FUNCIONES NUMÉRICAS 


Si no hace mucho trabajo científico, es poco probable que utilice la información 
de esta sección. Todo lo que se hace aquí es resumir las funciones numéricas dis- 
ponibles en VBScript. 
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Round 


La función Round hace lo que su nombre sugiere (simplemente redondea el núme- 
ro entre paréntesis): 


Round(4.1) = 4 
Round(4.7) = 5 


Para números pares se redondea hacia abajo en .5 
Round(4.5) = 4 

Para números impares se redondea hacia arriba en .5 
Round(5.5) = 6 


También se puede dar un segundo parámetro a la función Round que indique 
el número de decimales que se incluyen en el redondeo: 


Round(4.567, 2) = 4.57 


Sgn 


La función Sgn devuelve 1 si el número entre paréntesis es positivo, —1 si el núme- 
ro es negativo y O si el número es 0. Un uso poco evidente de esta función es el que 
se hace en un bucle For-Next que comienza de esta forma: 


For I = A To B Step Sgn(B - A) 

Mientras A no sea igual a B, VBScript ejecuta el cuerpo del bucle For-Next el 
número correcto de veces, independientemente de si A es mayor o menor que B. 
Abs 


La función Abs devuelve el valor absoluto de lo que haya dentro de los paréntesis, 
Todo lo que hace esta función es borrar el signo menos: 


Abs(-5M) = 5 
Abs(5) = 5 


Un uso común de la función valor absoluto es Abs(B-A). Esto devuelve la 
distancia entre los números A y B. Por ejemplo, suponga que A = 13 y B = 41. 
Entonces, Abs(B-A) = Abs(A—B) = 28 porque 13 y 41 están separados por 28 
números. 
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CONSEJO: La función Abs se utiliza a menudo para establecer pruebas de tolerancia en 
bucles Do. Las pruebas de tolerancia se utilizan para comprobar si un valor empírico está 
dentro de un cierto margen del valor ideal. Por ejemplo, la siguiente línea de código crea 
un bucle que se para cuando el valor empírico está dentro de .001 del valor ideal: 


Do Until Abs(ValorIdeal - ValorEmpirico) < .001 


Sqr 

La función Sqr devuelve la raíz cuadrada de la expresión numérica entre parénte- 
sis, que no debe ser negativa. 

Exp 

La función Exp devuelve e (e es aproximadamente 2.7182) elevado a x, donde e es 
la base de los logaritmos naturales. El resultado es un número de doble precisión, 
Log 


La función Log devuelve el logaritmo natural de un número, Para encontrar el 
logaritmo común (log base 10), se utiliza Log(x)//Log(10). 


CONSEJO: Una forma rápida de encontrar el número de dígitos de un número mayor que 
1 es utilizar Int(Log(x)/Log(10))+1. 


Funciones trigonométricas 


Para los que las necesiten, VBScript tiene la mayoría de las funciones trigonomé- 
tricas estándar. Se tiene Sin (seno), Cos (coseno), Tan (tangente) y Atn (arco tan- 
gente), El único problema es que VBScript espera que el ángulo entre paréntesis 
esté en radianes. Para convertir grados a radianes se necesita el valor de 7. La 
fórmula es radianes = grados * 7/180. 


CONSEJO: La forma más fácil de encontrar el valor de xes crear una variable al nivel script 
utilizando la función Atn (arco tangente) como a continuación: 


Dim PI 
PI =4*Atn(1) 


Esto es válido porque el arco tangente de 1 es 1/4. 


Capítulo 


Cómo escribir funciones 
y subprocedimientos propios 


El último capítulo mostraba cómo utilizar las funciones incorporadas en VBScript; 
este capítulo muestra cómo escribir funciones y subprocedimientos reutilizables 
propios. (Véase más abajo para más información sobre subprocedimientos.) La 
razón para hacer esto es sencilla, a nadie le gusta reinventar la rueda. Cuando se 
escriben programas, ciertas tareas se repiten una y otra vez. Por ejemplo, puede 
que se quiera realizar una de las siguientes tareas: 


m Verificar que un usuario ha introducido algo en una casilla de texto en vez 
de dejarla en blanco. 


m Buscar en una lista u ordenarla alfabéticamente. 


m Verificar el formato de un número de teléfono o un número de la Seguridad 
Social. 


Una vez que se ha escrito el código para realizar una de estas tareas, no se 
desea volver a escribirlo. De hecho, cuanto más se programa, más se empieza a 
ver que los problemas reinciden bajo diferentes apariencias. Para resolver un nue- 
vo problema, simplemente se «pegan» trozos de código que ya se han escrito. 

Hay otra razón para escribir funciones y subprocedimientos propios. Los pro- 
cedimientos de eventos son el núcleo de VBScript, pero no deberían ser muy com- 
plejos. Si un procedimiento de evento es mucho mayor que el tamaño de una ven- 
tana, puede resultar difícil de depurar. (Véase el siguiente capitulo para información 
sobre técnicas de depuración.) Considérese repartir el problema entre una o más 
funciones o procedimientos generales para modularizar los script. (Modularizar es 
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dividir un programa en partes más pequeñas y manejables. Véase el último aparta- 
do de este capítulo para más información sobre modularización.) 


FUNCIONES Y SUBPROCEDIMIENTOS 


Un procedimiento es un trozo de código con nombre que realiza una tarea especí- 
fica. Un procedimiento se puede llamar (ejecutar) desde otros procedimientos o 
desde la parte principal de un programa. Hay dos clases de procedimientos en 
VBScript: funciones y subprocedimientos. Ya se han visto las funciones incorpo- 
radas en VBScript, pero VBScript también permite escribir funciones propias. Como 
con las funciones incorporadas, las funciones que se escriben realizan una tarea y 
después devuelven un valor. 

Un subprocedimiento (a veces denominado subrutina o rutina) es una generali- 
zación de los procedimientos de eventos que ya se han visto. Al igual que un pro- 
cedimiento de evento, un subprocedimiento no devuelve un valor, simplemente 
hace algo. Un procedimiento de evento es un tipo especial de subprocedimientos 
porque un procedimiento de evento se ejecuta automáticamente como respuesta a 
un evento, tal como al hacer clic sobre un botón o al pulsar una tecla. 

Se pueden enviar datos tanto a funciones como a subprocedimientos pasándo- 
les parámetros. Normalmente, las funciones no cambian los datos que se les en- 
vían; se escriben principalmente para devolver un valor. Si se escribe una función 
que cambia la información que se le envía, el valor que se devuelve se utiliza 
normalmente para indicar éxito o fracaso. Por otro lado, los subprocedimientos 
que aceptan datos se escriben para procesar los datos. Por tanto, si se quiere así, 
un subprocedimiento cambia los datos que se le envían. 

A menudo, hay un subprocedimiento y una función que están relacionados. 
Por ejemplo, considérese de nuevo el problema de eliminar múltiples espacios dentro 
de una cadena de texto. ¿Se quiere crear una segunda versión de la cadena, elimi- 
nando todos los espacios y conservando la cadena original? En este caso, se debe- 
ría escribir una función que devuelva una nueva cadena. ¿Se quiere modificar per- 
manentemente la cadena original para que no tenga espacios? En este caso, se 
debería escribir un subprocedimiento que acepte la cadena y la cambie. 


Funciones 


Puede quererse escribir una función propia cuando se utiliza una secuencia de sen- 
tencias más de una vez en el programa. Por ejemplo, supóngase que se necesita 
eliminar los espacios extras de dentro de algún texto más de una vez. Ya se vio el 
código para hacer esto en el capítulo anterior: 


SinEspaciosExtras - Replace(Texto, o 

Do While Instr(SinEspaciosExtras, * ") <> 0 
SinEspaciosExtras = Replace(SinEspaciosExtras, * *, " " 

Loop 
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He aquí cómo se obtiene una función reutilizable a partir de las líneas de códi- 
go anteriores: 


Function EliminarEspaciosExtras (Texto 
Dim SinEspaciosExtras, DobleEspacio 
DobleEspacio = Chr(32) £ Chr(32 


SinEspaciosExtras = Replace(Texto, DobleEspacio, Chr(32)) 
Do While Instr(SinEspaciosExtras, DobleEspacio) <> 0 
SinEspaciosExtras = Replace(SinEspaciosExtras, DobleEspacio, 
chr(32)) 
Loop 


EliminarEspaciosExtras = SinEspaciosExtras 
End Function 


NOTA: Se han cambiado las ocurrencias de un espacio simple (' ") por Chr(32) y de un 
doble espacio (' ") por una variable denominada DobleEspacio, que contiene Chr(32) 
8 Chr(32). Esto hace que la función sea un poco más fácil de leer así como de transformar 
en una función que elimine ocurrencias de cualquier texto doble, como se verá más adelan- 
te en este capítulo. 


Como se verá pronto, después de introducir este código en el script de una pági- 
na Web, se puede utilizar EliminarEspaciosExtras igual que una función incorpora- 
da. (Es buena costumbre poner todas las funciones al principio de un script, en la 
cabecera. Sin embargo, siempre que una función esté entre las etiquetas <SCRIPT> 
</SCRIPT>, VBScript podrá encontrarla, no importa dónde se ponga.) Lo princi- 
pal es que con unas cuantas líneas extras se puede reutilizar el código fácilmente. 

Todas las funciones que se escriban tendrán la misma estructura que la de este 
ejemplo. La primera línea contiene la palabra clave Function, el nombre de la fun- 
ción, y cualquier número de parámetros entre paréntesis. La primera línea de la 
función es 


Function EliminarEspaciosExtras (Texto) 


En este caso, el nombre de la función es EliminarEspaciosExtras. El parámetro 
denominado Texto dentro de los paréntesis es la parte fundamental en el comporta- 
miento de la función. Se denomina parámetro formal, pero es más fácil pensar que 
se trata de un contenedor. Como se ha visto en las funciones incorporadas en VB- 
Script, se llama a la función con diferentes valores para el contenedor. Por ejemplo: 


NuevoTexto = EliminarEspaciosExtras(txt.Boxl.Text) 


El código comprendido entre la primera y la última línea se denomina cuerpo 
de la función. Dentro del cuerpo, se ha de incluir al menos una asignación con el 
siguiente aspecto: 


NombreDeFuncion = AlgunValor 
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En el ejemplo anterior, se utilizó esta línea: 
EliminarEspaciosExtras - SinEspaciosExtras 


VBScript utiliza este tipo de sentencia de asignación para definir el valor de 
retorno de la función. 

He aquí otro ejemplo. Si se escribiera la versión propia de la función de valor 
absoluto incorporada (que siempre devuelve el valor positivo de un número), ten- 
dría el siguiente aspecto: 


Function MiValorAbsoluto(X) 


if X > 0 Then 
MiValorAbsoluto = X 
Else 
MiValorAbsoluto = -X 
End If 


End Function 


La cuestión es que VBScript utiliza cualquiera de las sentencias de asignación 
para establecer el valor de retorno de la función. En el código anterior, el valor de 
retorno es o bien el número o su opuesto, dependiendo de su signo. 


Parámetros de función 


Ya se han visto parámetros en diversas funciones incorporadas. En general, para 
llamar a una función, se reemplaza el parámetro formal (el contenedor) por una 
expresión. VBScript, a continuación, reemplaza todas las ocurrencias del contene- 
dor en el cuerpo de la función por el valor de la expresión. Por ejemplo, supóngase 
que se ha escrito lo siguiente: 


= "Esto es una prueba. * 


A 
B = * ¿Funcionará?" 


(Nótese el espacio extra al principio de B.) 
Las siguientes líneas de código tendrán el mismo resultado: 


EliminarEspaciosExtras(A £ B) 
El 


'TextoCompleto 
TextoCompleto 


inarEspaciosExtras ("Esto es una prueba. 
¿Funcionará?*) 


Es importante tener en cuenta la diferencia entre las sentencias siguientes: 


NuevoTexto inarEspaciosExtras(txtBoxl.Text) 
txtBoxl.Tex liminarEspaciosExtras(txtBoxl.Text 


Otros términos que 
describen el uso 

de números son los 
números embebidos 
y los números 
mágicos 
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En el primer caso, simplemente se almacena el nuevo valor para un futuro uso 
en una variable denominada NuevoTexto. En el segundo caso, realmente se altera 
el contenido de la casilla de texto. 

Finalmente, se ha de recordar siempre que los parámetros formales de una fun- 
ción no tienen una existencia independiente como variables. Si se escribe una fun- 
ción con un parámetro formal denominado Texto y se declara una variable deno- 
minada Texto en alguna otra parte del programa, incluso como variable al nivel de 
script, la variable nunca tendrá efecto en el comportamiento de la función. 


ADVERTENCIA: Se ha de tener cuidado al colocar un parámetro formal en el lado iz- 
quierdo de una sentencia de e rta en el cuerpo de una función. Cualquier cambio que 
se haga sobre los parámetros afectará a las variables originales. (Véase «Paso por referen- 
cía frente a paso por valor» más adelante en este capítulo para más información.) 


Ejemplo: Una solución basada en una función para calcular 
la tasa postal en EE.UU. 


Se va a rehacer la calculadora de tasas postales del capítulo anterior. Si sólo se 
modificara el código para crear una función, tendría el siguiente aspecto: 


Function Tasa(Peso) 
"Calcular el coste, en céntimos, de enviar una 
'carta de primera clase con un peso dado en onzas 


If CStr(Int(Peso)) = Peso Then 
Tasa = .32 + .23*(Peso -1) 
Else 
Tasa = .32 + .23*(Int(Peso)) 
End If 


End Function 


Sin embargo, ésta no es una buena forma de escribir una función reutilizable: 
después de todo, las tasas postales pueden subir, y si se quisiera reutilizar la fun- 
ción después de un cambio de precios, se tendrían que cambiar los números en 
más de un lugar. Esta función, en efecto, utiliza dos ejemplos de lo que los progra- 
madores denominan números embebidos (.32 y .23). Es mejor escribir funciones 
que utilicen constantes en su lugar. De esa forma cuando se necesite un cambio se 
tienen que cambiar las constantes en un solo sitio (habitualmente justo al principio 
del programa); no se tendrán que buscar todas las ocurrencias de los números em- 
bebidos. (Es muy fácil olvidarse de cambiar una ocurrencia de un número embebi- 
do en una función complicada.) 

Además, las constantes con nombres descriptivos hacen que el código sea más 
legible. 

He aquí una forma mejor de escribir la función anterior: 
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Function Tasa(Peso) 


'Calcular el coste, en céntimos, de enviar una 
'carta de primera clase con un peso dado en onzas 


Const COSTE_PRIMERA_ONZA = .32 
Const COSTE_ONZA_ADICIONAL = .23 
If CStr(Int(Peso)) = Peso Then 


Tasa = COSTE_PRIMERA_ONZA + COSTE_ONZA_ADICIONAL *(Peso - 1) 


Else 


Tasa = COSTE_PRIMERA_ONZA + COSTE ONZA ADICIONAL *(Int(Peso)) 


End If 


End Function 


¿Cómo se puede utilizar esta función? Como ejemplo de tipo de «validación 
del lado del cliente» que se utilizará a menudo con VBScript, ciertamente se que- 
rrá validar que lo que el usuario introduce es un número mayor que 0. 


He aquí una versión de código 


Sub emdCalcular_Click 
Dim PesoDeCarta 


que hace esto: 


If Not IsNumeric(cuadroTxt1.Text) Then 
MsgBox "Por favor introduzca un número." 


cuadroTxtl.Text = 


ElseIf cuadroTxtl1.Text < 0 Then 
MsgBox “Por favor introduzca un número positivo." 


cuadroTxt1, Text 
Else 

MsgBox "Esto le constará 
End If 


End Sub 


" £ Tasa(cuadroTxt1.Text) 


Salida prematura de una función 


Ocasionalmente, se querrá salir de una función prematuramente sin asignar un valor 
de retorno. En dicho caso, el valor de retorno por defecto es O para los números 
y " " para las cadenas. La sentencia que permite hacer esto es Exit Function. 

Un buen ejemplo de dónde se podría utilizar la sentencia Exit Function es en 
una función que determine si el usuario ha olvidado introducir información en un 
cuadro de texto, algo para lo que siempre se ha de estar en alerta. Instintivamente 


se querrá hacer simplemente esto: 


Function TextoNo0k(Texto) 


If Texto = "" Then 
TextoNo0k = True 
Else 
TextoNo0k = False 
End If 


End Function 
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El problema con esta función es que el usuario puede haber pulsado inadverti- 
damente la barra de espacio. En este caso, la función dice que el texto es correcto 
cuando claramente no lo es. Después de todo, un cuadro de texto que contenga 
sólo espacios en blanco no está realmente relleno. He aquí una función que no sólo 
comprueba si una cadena de texto contiene caracteres sino también si contiene 
sólo caracteres de espacios en blanco: 


Function EsEspacioBlanco (Texto 
Dim I 


For I = 1 To Len(Texto) 


Select Case Mid(Texto, I, 1) 
Case Chr(32), vbCr, vbLf, vbTab 
éstos son caracteres de espacio en blanco (espacio, 
“retorno de carro, salto de línea, tabulador) 
‘por lo que se continúa el bucle 
Case Else 
"encontrado un carácter que no es un espacio en blanco 
EsEspacioBlanco = False 
Exit Function 
End Select 
Next 


'sólo se llega aquí si se no se ejecuta la sentencia Exit Function 
“(si no había ningún carácter o si todos los caracteres eran 
"espacios en blanco) 

EsEspacioBlanco = True 


End Function 


A algunos programadores no les gusta utilizar la sentencia Exit Function; ar- 
gumentan que una función debería tener un solo punto de entrada y un solo punto 
de salida. Se comprende su razonamiento; una función con múltiples puntos de 
salida es a menudo más difícil de comprender que una función con un solo punto 
de salida. En este caso particular, no parece que una solución que evite la utiliza- 
ción de la sentencia Exit Function sea más clara. He aquí una versión del código 
que evita la sentencia Exit Function. ¿Cuál resulta más fácil de utilizar? 


Function EsEspacioBlanco(Texto 
Dim 1, NoBlancoEncontrado 


NoBlancoEncontrado = False 
I-O 


Do Until NoBlancoEncontrado Or I = Len(Texto) 
1 =I + l 'empezar por el primer carácter 


Select Case Mid(Texto, I, 1) 
Case Chr(32), vbCr, vbL£, vbTab 
'éstos son caracteres de espacio en blanco (espacio, 
'retorno de carro, salto de línea, tabulador) 
*por lo que se continúa el bucle 
Case Else 
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"encontrado un carácter que no es un espacio en blanco 
NoBlancoEncontrado = True 
End Select 


Loop . 


If NoBlancoEncontrado Then 
EsEspacioBlanco = False 
Else 
EsEspacioBlanco = True 
End If 


End Function 


La programación de este bucle es realmente un ejemplo de situación tipica que 
aparece cuando se intenta evitar la utilización de la sentencia Exit Function, se 
tiene un bucle Do que finaliza si una cualquiera de las dos situaciones posibles 
ocurre. Después del bucle se verifica qué situación ha ocurrido realmente. 


Funciones con más de un parámetro 


Las funciones que se han construido hasta ahora sólo trabajan con un parámetro; a 
menudo, se necesitan funciones que trabajen con más de un parámetro. Por ejem- 
plo, supóngase que se quiere modificar la función EliminarEspaciosExtras de for- 
ma que pueda eliminar ocurrencias de cualquier texto doble. Se le ha de pasar dos 
parámetros: 


æ La cadena de texto completa. 
m La subcadena a ser eliminada. 


He aquí el código: 


Function EliminarTextoDoble(Texto, TextoEBliminar 
Dim TextoExtraEliminado, TextoDoble 
TextoDoble = TextoEliminar á TextoEliminar 


TextoExtraEliminado = Replace(Texto, TextoDoble, TextoEliminar 
Do While Instr(TextoExtraEliminado, TextoDoble) <> 0 
TextoExtraEliminado = Replace(TextoExtraEliminado, TextoDoble 
TextoEliminar) 


Loop 


EliminarTextoDoble = TextoExtraEliminado 
End Function 


A continuación, supóngase que se va a crear una página Web que realiza un 
cálculo (tal como los ahorros para jubilación) y se necesitan números enteros alea- 
torios (tales como cantidades de depósito mensuales) en distintos rangos. En cier- 
to momento, se requiere que los enteros estén entre 1 y 6, en otro momento entre 
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100 y 999, y todavía en otro momento entre 1000 y 10.000. Para obtener enteros 
entre 1 y 6, se necesita la expresión: 


Int (6*Rnd) + 1 
Para obtener números entre 100 y 999, se necesita la expresión: 
Int (900*Rnd) + 100 


Recuérdese que la función Rnd devuelve un número decimal entre O y 1; el 
número puede que sea 0, pero nunca será exactamente 1. Por tanto, la expresión 
900*Rnd genera un número de O hasta 900, sin incluir este último. Al aplicar la 
función Int a la expresión se genera entonces un entero entre O y 899, (Recuérdese 
que la función Int elimina la parte decimal del número.) Finalmente, al sumarle 
100 se obtiene un número entre 100 y 999, inclusive. 

¿Cómo se ha obtenido el número 900? No por prueba y error. En general, se 
resta el número menor del número mayor del rango y después se le suma 1, En este 
caso, se ha restado 100 de 999 y se le ha sumado 1 obteniendo 900. He aquí una 
función que hace esto para cualquier rango de números positivos: 


Function RangoAleatorioXY(X, Y) 
RangoAleatorioXY = Int((Y - X + 1) * Rnd) + X 
End Function 


Aunqueesta función sólo tiene una línea, es un poco difícil. La mejor forma de 
entender código es probar a modo de computadora. Se pueden probar números 
especificos y ver qué ocurre. Por ejemplo, ¿qué ocurre si X = 100 e Y = 999? 


dt 1 90D: 


2. (900 * Rnd) genera un número entre O y 900, exclusive. 


3. Int(900 * Rnd) genera un entero entre O y 899, inclusive, (Nótese que 899 
es Y - X.) 


4. Sumándole X se obtiene el rango deseado de 100 a 999. 


He aquí otro ejemplo. Se puede necesitar una función que contabilice el núme- 
ro de veces que un carácter particular aparece dentro de una cadena. La idea es 
simple; se utiliza la función Mid y se recorren los caracteres de la cadena de uno 
en uno, llevando la cuenta del número de ocurrencias de cada carácter, como se 
muestra en esta función: 


Function ContarOcurrenciasCar (Caracter, Cadena) 
“Esta función cuenta el número de veces 
*que un carácter aparece dentro de una cadena 


Dim Cuenta, 1 
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Cuenta = 0 
For 1 = 1 To Len(Cadena) 

If MidíCadena, I, 1) = Caracter Then Cuenta = Cuenta + 1 
Next 


ContarOcurrenciasCar = Cuenta 
End Function 


El bucle For-Next recorre la cadena carácter a carácter, sumando uno a la va- 
riable Cuenta si encuentra una ocurrencia. La función devuelve después el valor 
de la variable Cuenta. 


Subprocedimientos 


Una función se escribe para realizar una tarea y después devolver un valor. Supón- 
gase, sin embargo, que se quiere automatizar una tarea pero no se desea recibir un 
valor. En este caso, se debería escribir un subprocedimiento. 

Por ejemplo, se podría automatizar la visualización de texto con un cierto nivel 
de encabezamiento, Resulta tedioso escribir lo siguiente: 


Document .Write "<H* £ I £ ">" £ Texto £ “</H>" 


He aquí un subprocedimiento que tiene dos parámetros, uno para el nivel de 
encabezamiento y otro para el texto a visualizar: 


Sub EcribirANivelCabecera (NivelCabecera, Texto) 
Document .Write "<H" á NivelCabecera á ">" £ Texto á "</H>" 
End Sub 


En general, como muestra este ejemplo, la primera línea de un subprocedimiento 
tiene la palabra clave Sub seguida del nombre del subprocedimiento. Como un nombre 
de función, un nombre de subprocedimiento debe seguir las reglas de un nombre de 
variable. A continuación viene la lista de parámetros, entre paréntesis. (Si el subpro- 
cedimiento no utiliza parámetros, el paréntesis es opcional.) Tras la lista de pará- 
metros vienen las sentencias que forman el cuerpo del subprocedimiento. Final- 
mente están las palabras clave End Sub, que finalizan el subprocedimiento, 


NOTA: De igual forma que existe una sentencia Exit Function, existe una sentencia Exit 
Sub para salir del subprocedimiento de forma prematura. 


Cómo utilizar subprocedimientos 


Para llamar a un subprocedimiento, se utiliza su nombre seguido de parámetros. Si 
hay más de un parámetro, se separan por comas: 


EcribirANivelCabecera 2, "Ésta es una cabecera de nivel 2" 
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También se puede utilizar la palabra clave Call, que tiene el siguiente aspecto: 
Call EcribirANivelCabecera (2; " Ésta es una cabecera de nivel 2") 


Si se utiliza la palabra clave Call, se debe encerrar entre paréntesis la lista de 
parámetros; si no se utiliza la palabra clave Call, se deben omitir los paréntesis. 


SUGERENCIA: También se puede llamar a un procedimiento de evento directamente de 
esta forma. Por ejemplo, la siguiente línea llama al procedimiento de evento Clic para el 
botón denominado cmdCalcular: 


emdCalcular Click 


Puede resultar más explícito usar la palabra clave «Call» aquí (aunque es una cuestión de 
gusto), de la siguiente forma: 


Call cmdCalcular_Click( ) 


Ejemplo: Escribir un subprocedimiento para hacer tablas 


El subprocedimiento para escribir texto a un nivel de encabezamiento específico 
es tan simple que se podría argumentar que resulta igual de fácil hacerlo directa- 
mente, es decir, sin utilizar una llamada a subprocedimiento o función. Sin em- 
bargo, supóngase que se quisiera automatizar la construcción de tablas HTML. 
Las sentencias Document.Write necesarias suponen mucho trabajo. El siguiente 
ejemplo crea una tabla simple. Los números de filas y columnas se configuran 
como variables denominadas Filas y Columnas, y la tabla se crea con un pequeño 
borde y un cierto espacio entre las columnas (3 pixels). Para mayor claridad, se 
ha añadido un poco de código para pintar los números de filas y columnas en 
cada celda de la tabla: 


Document .Write "<TABLE BORDER=3 CELLPADDING=3>" 


las 

e "<TR>" 

Columnas 

ite "<TD>" 

«Write "Fila "£ 1 £ ", Col * 4 J 
Document .Write "<TD>" 


For Ī = 1 to 
Document . 


Next 
Document.Write "</TD>" 
Next 


Document.Write "</TABLE>" 


Esto pide a gritos que se utilice como una llamada a subprocedimiento. Lo 
ideal seria poder pasar como parámetro un array bidimensional para el contenido 
de la tabla, pero eso se dejará como mejora para más adelante. He aquí la primera 
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versión del subprocedimiento que crecerá en utilidad (y, por tanto, en compleji- 
dad) conforme avance este capítulo. Se ha incluido en el código de una página 
Web para ver el resultado. A continuación del código del subprocedimiento está 
una llamada al mismo de forma que pueda verse una tabla de 4x4 (también puede 
verse este ejemplo en el archivo Tabla.htm en el CD adjunto): 


<HTML> 
<HEAD> 
<TITLE>Generador de tablas VBScript</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT*"> 


<!-- 
Option Explicit 


Sub HacerTabla(Filas, Columnas, Borde, espacioEntreCeldas 
Dim Temp, I, J 


Temp = "<TABLE BORDER=" & Borde _ 
& " CELLPADDING=" á espacioEntreCeldas á ">" 
Document .Write Temp 


Por 1 = 1 to Pilas 
Document .Write "<TR>" 
For J = 1 to Columnas 
Document .Write "<TD>" 
Document .Write "Fila "6 I £ *, Col "4 J 
Document .Write “<TD>*" 
Next 
Document. Write "</TD>" 
Next 


Document .Write "</TABLE>" 
End Sub 


lamar al generador de tablas 
HacerTabla 4, 4, 3, 3 


</SCR 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 


PASO POR REFERENCIA FRENTE A PASO POR VALOR 


Puede haberse observado que en el cuerpo de una función o subprocedimiento no 
se ha colocado un parámetro en el lado izquierdo de una sentencia de asignación. 
Esto se ha hecho de forma deliberada, no se ha utilizado código del siguiente tipo: 


AlgunParametro = NuevoValor 
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La razón es que hay realmente dos formas de pasar un parámetro a una función 
o subprocedimiento: paso por referencia y paso por valor. La diferencia puede 
resultar confusa, pero si tiene en cuenta estos factores no habrá ningún problema: 


m Cuando se pasa un valor por referencia, cualquier cambio al parámetro co- 
rrespondiente dentro de la función o subprocedimiento (es decir, poniéndo- 
lo en el lado izquierdo de una sentencia de asignación) cambiará el valor de 
la variable original cuando la función o subprocedimiento finalice. 


m Cuando se pasa un parámetro por valor, la variable original retiene su valor 
después de que la función o subprocedimiento termine, no importa que el 
parámetro correspondiente haya cambiado dentro de la función o subpro- 
cedimiento. VBScript simplemente descarta cualquier cambio que se haya 
hecho. 


(En realidad, VBScript realiza una copia del valor de la variable original. La 
función o subprocedimiento trabaja entones con la copia en vez de con la variable 
original.) 

He aquí un ejemplo muy simple de la distinción entre pasar por referencia y 
pasar por valor: 


Sub SumarDos (X) 

e ME 

MsgBox "El valor de X dentro de este procedimiento es " £ X 
End Sub 


Ahora supóngase que se utiliza el siguiente código: 


Dim X 


X=7 
SumarDos X 
MsgBox "El valor đe X es ahora " á X 


El valor de X es ahora 9, y eso es lo que se verá. El motivo es que VBScript 
utiliza por defecto el paso por referencia. Si se escribe el siguiente código, se verá 
un 7. Al utilizar SumarDos (X) con los paréntesis VBScript utiliza el paso por 
valor: 


Dim X 


q 
SumarDos (X) 
MsgBox "El valor de X es ahora " £ X 


He aquí un ejemplo más sutil. Ya se sabe que «mejor un pájaro en mano...» 
Cuando se trata de finanzas, esto significa que el dinero hoy vale más que dentro 
de diez años. Por ejemplo, si el tipo de interés está al 7 por 100, el dinero se dupli- 
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ca en aproximadamente 10 años, por lo que pagar $1000 hoy equivale a pagar 
$2000 en diez años. Esto es por lo que las loterías pueden ofrecer premios tan 
sustanciosos; el dinero que se paga a lo largo de 20 años vale mucho menos que 
pagado de golpe. 

Una forma de calcular cuánto valdrá una cantidad de dinero en el futuro es un 
simple bucle For-Next que vaya sumando el interés acumulado al total previo, 
como se muestra en el siguiente ejemplo: 


For 1 = 1 To Anyos 
BalanceActual = BalanceActual + Interes * BalanceActual 
Next 


Considérese la siguiente función: 
Function ValorFuturo(Balance, Interes, Anyos) 


Dim 1 


For I = 1 To Anyos 
Balance = Balance + Interes * Balance 
Next 


ValorFuturo = Balance 
End Function 


Supóngase que se utiliza un cuadro de introducción de texto para obtener los 
ahorros actuales de una persona: 


Ahorros = InputBox("Cuánto ha ahorrado?" ) 
Ahora pruébese una de las siguientes sentencias: 


MiRetiro 
MiRetiro 


ValorFuturo(MisAhorros, .07, 30) 
ValorFuturo ((MisAhorros), .07, 30) 


iLa primera sentencia es errónea y dará lugar a errores sutiles en el programa! 
El motivo es que el parámetro Balance aparece en el lado izquierdo de una senten- 
cia de asignación dentro de la función ValorFuturo, haciendo que cambie el valor 
original de la variable MisAhorros. Su valor original se perderá. La segunda sen- 
tencia es correcta; los paréntesis extras fuerzan a que VBScript pase la variable 
MisAhorros por valor de forma que cualquier cambio que se le haga sea descartado. 

La Figura 6.1 muestra la diferencia entre el paso por referencia y el paso por 
valor. 

Olvidar que el comportamiento por defecto de VBScript es el paso por referen- 
cia puede conducir a errores sutiles, por lo que vale la pena repetir que las varia- 
bles se pasan por referencia a menos que se encierren entre paréntesis. 

Por tanto, cuando se escriben funciones o subprocedimientos, las asignaciones 
a los parámetros no deben hacerse a menos que se quiera cambiar su valor origi- 
nal. De otra forma, se terminará con efectos laterales indeseados. 
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Paso por referencia Paso por valor 
x=3 x=3 


Función Función 
o subprocedimiento o subprocedimiento 


x=17 x=17 


xes ahora 17 x es todavía 3 


Figura 6.1. Paso por referencia frente a paso por valor. 


Si se sabe que un parámetro determinado no debería pasarse nunca por refe- 
rencia, se puede especificar que sólo se pase por valor. Para hacer esto, se debe 
añadir la palabra clave ByVal delante del parámetro en la lista de argumentos. He 
aquí un ejemplo de la sintaxis: 


Function ValorFuturo (ByVal Balance, ByVal Interes, ByVal Anyos) 


De esta forma no se tendrá que estar preocupado por los efectos laterales dis- 
cutidos anteriormente. 

Si se pasa un parámetro por referencia a una función o subprocedimiento y la 
variable original se cambia de forma intencionada, el efecto es similar al creado 
utilizando una variable al nivel de script. (Recuérdese que una de las razones prin- 
cipales para usar una variable al nivel de procedimiento es que no puede verse 
afectada fuera del procedimiento en el que se declara.) ¿Cómo se decide si usar 
una variable al nivel de procedimiento que se pasa por referencia o una variable al 
nivel de script? 

La mayoría de los programadores siguen la norma de que las variables al nivel 
de script son para información que debiera estar disponible en todo el script (por 
ejemplo, el valor de x) y por tanto raramente se cambia su valor dentro de un 
procedimiento. Lo ideal seria que los procedimientos sólo cambiasen el valor de 
las variables pasadas como parámetros. El motivo de esta norma se deriva de los 
métodos utilizados para depurar programas. Para más información sobre depura- 
ción, véase el siguiente capítulo. 


UTILIZACIÓN DE ARRAYS EN LOS PROCEDIMIENTOS 


VBScript hace que resulte muy fácil el empleo de arrays en funciones y subproce- 
dimientos. Una forma de hacerlo sería utilizando el array como variable al nivel de 
script. Sin embargo, el paso de arrays como parámetros es mucho más frecuente 
porque evita los peligros de las variables al nivel de script. (Recuérdese que las 
variables al nivel de script pueden generar errores con facilidad.) 
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Para pasar un array como parámetro a una función o subprocedimiento, sim- 
plemente se coloca el nombre del array en la lista de parámetros. Por ejemplo, una 
mejor versión del subprocedimiento HacerTabla del ejemplo del generador de ta- 
blas visto anteriormente incluye como parámetro un array para el contenido de la 
tabla. He aquí la primera línea del subprocedimiento modificado: 


Sub HacerTabla(Entradas, Borde, EspacioEntreCeldas 


El parámetro Entradas es el array. Obsérvese que al igual que con otros tipos 
de parámetros, los parámetros de tipo array son contenedores; no tienen existencia 
independiente. 

He aquí todo el subprocedimiento modificado, que permite construir una tabla 
HTML a partir de cualquier array bidimensional que se le pase. La clave del nuevo 
subprocedimiento es el uso de la función UBound para determinar el número de 
filas y columnas. El segundo parámetro de la función UBound indica qué límite 
superior de dimensión se devuelve, Por ejemplo, las siguientes líneas recuperan 
los límites superiores de la primera y segunda dimensión, respectivamente, del 
array bidimensional Entradas: 


Filas = UBound(Entradas, 1) 
Columnas = UBound (Entradas, 2) 


Como antes, se ha incluido el subprocedimiento HacerTabla en el código 
de una página Web para poder ver su resultado. A continuación del código del 
subprocedimiento está el código que crea un array de 5x7 y luego pasa el array al 
subprocedimiento (también se puede encontrar este ejemplo en el archivo Tabla2.htm 
del CD adjunto). 


<HTML> 
<HEAD> 
<TITLE>Un mejor generador de tablas VBScript</TITLE> 


<SCRIPT LANGUAGE="VBSCRIPT*> 


<i- 
Option Explicit 


Dim A(5, 7) 
Dim R, C 


Sub HacerTabla (Entradas, Borde, EspacioEntreCeldas) 
Dim Temp, 1, J, Filas, Columnas 
Temp = "<TABLE BORDER=" & Borde _ 

£ * CELLPADDING=" á EspacioEntreCeldas á ">" 
Document .Write Temp 


Filas = Ubound(Entradas, 1) 
Columnas = Ubound(Entradas, 2) 
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For I = 1 to Filas 
Document .Write "<TR>" 
For J = 1 to Columnas 
Document .Write "<TD>" 
Document .Write Entradas(I, J) 
Document .Write "<TD>" 
Next 
Document .Write "</TD>" 
Next 


Document .Write "</TABLE>" 
Ená Sub 


'Crear un array y llamar al generador 
For R = 0 To 5 
POr de U toT 
A(R,C) = CStr(R) £ ", " £ CStr(C) 


HacerTabla A, 3, 3 


</SCRIPT> 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 


SUGERENCIA: Para estar seguros de que nadie intenta utilizar este subprocedimiento 
pasándole un parámetro que no sea un array, se puede agregar la siguiente linea al princi- 
pio del subprocedimiento: 


If Not IsArray (Entradas) Then Exit Sub 


A continuación supóngase que se quiere escribir una función que devuelva el 
número menor de una lista. Se necesita una función que tenga un array como pará- 
metro, como se muestra en el siguiente borrador: 


Function BuscarMenor (Lista) 
establecer como valor mínimo el primer elemento del array 
para cada entrada de la lista, si la entrada es menor que el 
valor mínimo actual, entonces establecer como mínimo actual 
dicha entrada 
establecer como valor de la función el valor mínimo final? 


De nuevo, la clave es la función UBound. Si se piensa que esta función se 
utiliza en la mayoría de los procedimientos que utilizan arrays, se está en lo cierto. 
He aquí el borrador anterior transformado en código VBScript: 


Function BuscarMenor (Lista) 
Dim NumEntradas, Menor, I a 
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BÚSQUEDA 


If Not IsArray(Lista) Then 
MsgBox "Por favor páseme una lista.* 
Exit Function 

End If 

NumEntradas = UBound(Lista 

Menor = Lista(0) 


For I = 0 To NumEntradas 
If Lista(I) < Menor Then Menor = Lista(I) 
Next 


BuscarMenor = Menor 
End Function 


Esta función devuelve la menor entrada de la lista (o la menor en orden alfabético). 


Y ORDENACIÓN 


La búsqueda y ordenación de listas son las tareas para las que se utilizan más 
frecuentemente las computadoras, La mayoría de scripts no tienen que tratar enor- 
mes listas con millones de entradas, por lo que se puede centrar el interés en técni- 
cas que funcionan bien para listas pequeñas pero no tan bien para listas muy grandes. 


Búsqueda 


Si la lista es pequeña, el procedimiento a seguir es escribir una función que busque 
en la lista, He aquí una función que devuelve True si se encuentra la entrada o 
False si no se encuentra: 


Function Buscar (Lista, QueBuscar 
Dim NumEntradas I, 


NumEntradas = UBound(Lista) 


For 1 = 0 To NumEntradas 
If Lista(I) = QueBuscar Then 
Buscar = True 
Exit Function 
End If 
Next 


Buscar = False 
End Function 


Sin embargo, si la lista ya está ordenada (por ejemplo, alfabética o numérica- 
mente), ésta no es la mejor forma de proceder. Después de todo, si se está buscan- 
do en una guía telefónica un nombre que comienza por K, no se empieza por la 
página 1; se abre la guía más o menos por el centro y se procede a partir de ahí. 
Cuando la información de la lista en la que se está buscando ya está ordenada, se 
puede acelerar el proceso programando algo similar a lo que se haría con la guía 
telefónica. He aquí el esbozo de un programa que busca en una lista de nombres 
que ya está en orden alfabético: 
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Function BusquedaBinaria(Lista, QueBuscar) 
mientras queden nombres por mirar, efectuar el siguiente bucle: 
dividir la lista por la mitad 
si la entrada del punto central es la que se está buscando, 
se ha acabado 
si no, determinar si se ha ido demasiado lejos (¿la entrada del 
punto central está antes o después del nombre que se está 
buscando?) 
si se ha ido demasiado lejos, mirar en la primera mitad de 
la lista; si no mirar en la segunda mitad 


La clave es que cada pasada por el bucle busca en una lista que tiene la mitad 
de tamaño que la lista anterior. 

Supóngase que la lista tiene 500.000 nombres. Después de la primera pasada 
del bucle, se empezará con una lista de 250.000 nombres. Después de la segunda 
pasada, sólo se tienen 125.000 nombres, después sólo 62.500, y así sucesivamen- 
te. Después de unas cuantas pasadas más se llega a que sólo quedan 2 nombres 
Este tipo de búsqueda se denomina búsqueda binaria. La característica extraordi- 
naria de la búsqueda binaria es que funciona casi tan rápidamente con listas gran- 
des como pequeñas. Por ejemplo, supóngase que se está buscando un nombre en la 
guía telefónica de Nueva York, con unos 10.000.000 de entradas. Siguiendo este 
método (y sin hacer ninguna estimación de dónde están las letras), se encontrará el 
nombre, si está en la guía, en no más de 25 pasadas por el bucle y sólo unas 5 
pasadas más que las necesarias para una lista de 500.000 nombres. 

Una función que realice una búsqueda binaria resulta un poco dificultosa; el có- 
digo siguiente es un primer intento que sigue exactamente el esbozo anterior. (Tiene 
un error sutil, que se puede intentar averiguar antes de explicar aqui en qué consiste.) 


Function BusquedaBinaria(Lista, QueBuscar) 
Dim Alta, Baja, Media, PosicionDestino 


Baja = LBound(Lista) 
Alta = UBound(Lista) 
PosicionDestino = -1 


Do 
Media = (Baja + Alta) 1 2 
If Lista(Media) = QueBuscar Then 
PosicionDestino = Media 
ElseIf Lista(Media) > QueBuscar Then 


Alta = Media - 1 
Else 

Baja = Media + 1 
End If 


Loop Until PosicionDestino <> -1 


BusquedaBinaria = PosicionDestino 
End Function 


Esta función devuelve la posición del objetivo. ¿O no? Parece que el bucle Do 
hace lo que se pretende. Primero busca el centro de la lista utilizando el operador 
de división de enteros. (Los índices de listas son siempre enteros.) Hay tres posibi- 
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lidades en la búsqueda, por lo que se utiliza una sentencia If-Then-Else para la 
comprobación. Por ejemplo, si la entrada de la posición central es demasiado grande, 
se mira en la primera mitad de la lista. En este caso, el objetivo no puede ser la 
entrada central (esa posibilidad fue eliminada por la primera cláusula de la senten- 
cia If), por lo que se puede decrementar el índice superior en uno. Ocurre una 
situación similar con la cláusula Else final. 

He aquí el problema, el bucle se detiene sólo si PosicionDestino tiene un valor 
distinto de —1. En otras palabras, el bucle se detiene si la función encuentra el 
objetivo. Pero supóngase que el objetivo no se encuentra en la lista. ¡El bucle nun- 
ca se detiene; el programa se encuentra en un bucle infinito! 

¿Cómo se puede arreglar esta función para que se detenga cuando no queden 
más entradas por verificar? Considérese el siguiente ejemplo: Supóngase que se 
llega a una lista con dos nombres, en las posiciones 12 y 13, siendo la posición 12 
demasiado pequeña y la 13 demasiado grande. ¿Qué ocurre? La primera vez que 
se está en esta situación, el valor de Media es (12 + 13) \ 2 = 12. Ya que el valor de 
la posición 12 es demasiado pequeño, el valor de Baja se establece a uno más que 
Media, es decir, 13. Los valores de Baja y Alta son ahora iguales. ¿Qué ocurre 
ahora? Los valores de Baja y Alta son iguales, y el valor de Media también. Ahora 
el valor de Media es demasiado grande, por lo que el valor de Alta se decrementa 
en uno, hasta 12, menor que el valor de Baja. Esto proporciona una forma de fina- 
lizar el bucle. Cámbiese la línea que finaliza el bucle por la siguiente: 


Loop Until (PosicionDestino <> -1) Or (Alta < Baja) 


¡Recuérdese que son los casos inusuales los que a menudo originan los errores 
más sutiles de un programa! 

He aquí una versión de la función de búsqueda binaria que tiene en cuenta 
todas las posibilidades devolviendo —1 como valor de la función si el objetivo no 
se encuentra: 


Function BusquedaBinaria(Lista, QueBuscar) 
Dim Alta, Baja, Media, PosicionDestino 


Baja = LBound(Lista) 
Alta = UBound(Lista) 
PosicionDestino = -1 
Do 
Media = (Baja + Alta) \ 2 
If Lista(Media) = QueBuscar Then 


PosicionDestino = Media 
ElseIf Lista(Media) > QueBuscar Then 


Alta = Media - 1 
Else 

Baja = Media + 1 
End I£ 


Loop Until (PosicionDestino <> -1) Or (Alta < Baja) 


BusquedaBinaria = PosicionDestino 
End Function 
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Ordenación 


Las listas ordenadas, tales como los diccionarios interactivos y las guías telefóni- 
cas, están ordenadas porque técnicas como la búsqueda binaria son muy rápidas. 
Esto es por lo que la ordenación de los datos es una de las tareas que con más 
frecuencia se le pide a una computadora. Desgraciadamente, la ordenación tam- 
bién consume tiempo. Si se trabaja para la Administración de la Seguridad Social 
y se tiene una lista de 100.000.000 de entradas, seleccionar un método de búsque- 
da equivocado (uno optimizado para listas pequeñas), puede hacer que el proceso 
de ordenación tarde semanas. No es una broma. 

Debido a esto, los científicos han desarrollado literalmente cientos de formas 
distintas de ordenar grandes cantidades de datos, por lo que este apartado muestra 
dos métodos. Uno funciona bien con listas pequeñas (hasta 500 entradas) y el otro 
funciona bien con listas entre 100 y 5000 entradas. 


Procedimientos de búsqueda 


Cuando alguien se sienta a escribir un procedimiento que no es obvio, siempre es 
una buena idea ver si algo de lo que se hace en el mundo real es análogo a lo que 
se quiere que haga la computadora. Para ordenar listas, puede venir a la mente 
poner cartas en orden en la mano cuando se juega a las cartas. La gente lo suele 
hacer de dos formas: 


m Aquellos que cogen todas las cartas de una vez y las ordenan buscando pri- 
mero la carta más pequeña, luego la siguiente más pequeña, y así sucesiva- 
mente. 


m Aquellos que cogen las cartas de una en una, verifican lo que ya tienen or- 
denado, e inmediatamente colocan la nueva carta en el lugar correcto. 


Los científicos han demostrado que estos dos métodos de ordenación consu- 
men aproximadamente la misma cantidad de tiempo, siendo el segundo normal- 
mente un poco más rápido. El primero se denomina ordenación por ondas; el se- 
gundo se denomina ordenación por inserción. Aquí sólo se muestra la ordenación 
por inserción. 


Ordenación por inserción 


La idea consiste en que cuando se coge una nueva carta (una nueva entrada a agre- 
gar a la lista), se miran las cartas que ya se tienen (la lista, empezando por la que 
actualmente es la última entrada y bajando hasta la primera) hasta que se encuen- 
tre una inferior. En cada etapa, ya se tendrá un conjunto de cartas ordenadas, pero 
hasta que no se termine, todavía quedarán «cartas en la mesa». Desgraciadamente, 
a diferencia del caso de las cartas en la mano, una lista requiere mover algunas de 
sus entradas en una posición para dejar sitio a la nueva carta. Ahora, cada vez que 
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se encuentre que la entrada de la lista que se está mirando es mayor que la nueva 
carta, se mueve la entrada de la lista a la siguiente posición superior de la lista. Si 
se hace esto, se estará moviendo un hueco conforme se verifica la lista. Finalmen- 
te, cuando la comparación falla, se coloca la nueva carta en el hueco, He aquí el 
subprocedimiento para la ordenación por inserción. 


Sub OrdenacionPorInsercion(Lista) 
Dim Menor, Mayor, I, J, Temp 


Menor = LBound (Lista) 
Mayor = UBound(Lista) 


For I = Menor+1 To Mayor 
Temp = Lista(I) 


"encontrar un hueco 
For J = I-l To 0 Step -I 
If Lista(J) > Temp Then 


Lista(J + 1) = Lista(J) 
Else 
'nada que hacer, por lo que se sale del bucle 
Exit For 
End If 
Next 
Lista(J + 1) = Temp 
Next 
End Sub 


El bucle más interno mueve entradas de la lista hacia arriba hasta que las con- 
diciones satisfagan la sentencia Exit For. (Una sentencia Exit For proporciona una 
forma de salir de un bucle For-Next de forma prematura.) Esto ocurre cuando se 
ha localizado la posición del hueco, como preparación para la siguiente sentencia, 
que rellena el hueco: 


Lista(J + 1) = Temp 


Debido a que la ordenación por inserción sigue el modelo de las cartas de cer- 
ca, no es difícil de programar. Además, para listas pequeñas es razonablemente 
rápido. Ordenar 250 entradas siguiendo este método en un Pentium 166 lleva alre- 
dedor de medio segundo. Desgraciadamente, ordenar 500 entradas lleva alrededor 
de dos segundos. La ordenación por inserción tiene la desafortunada propiedad de 
que al duplicar la lista se cuadriplica el tiempo. Ordenar una lista de 1000 nom- 
bres llevaría 8 segundos. Esto no es aceptable e Internet Explorer mostrará un 
mensaje de advertencia indicando que el script está tardando demasiado. (Aquí se 
ve por qué la búsqueda binaria es tan agradecida, al doblar la lista sólo se añade un 
paso.) 

El siguiente apartado muestra uno de los métodos de ordenación más rápidos 
que funciona bien para cualquier lista que un programador de VBScript pueda ver. 
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| RA de Shell 


Este método se denomina así porque fue descubierto por Donald Shell, hace cerca 
de 40 años. La ordenación de Shell es atípica porque aunque el código es corto, no 
es fácil de comprender. En parte se debe a que no hay nada que se haga en el 
mundo real que sea análogo a esta ordenación, y en parte a que se trata de una idea 
muy inteligente. Otro problema es que incluso después de comprender cómo fun- 
ciona, no está claro por qué es mucho más rápido que la ordenación por ondas o 
por inserción. 

La mejor forma de comprender la ordenación de Shell es preguntarse a uno 
mismo: ¿cuáles son las ventajas y las desventajas de la ordenación por ondas y por 
inserción? Bien, la principal desventaja de la ordenación por inserción es que la 
mayor parte del tiempo mueve las entradas de forma ineficiente. Incluso cuando la 
lista está casi ordenada, todavía se tienen que mover las entradas una a una para 
crear el hueco. La principal ventaja de la ordenación por ondas es que mueve los 
objetos de forma eficiente. Una vez que el objeto más pequeño está situado en la 
primera posición, permanece allí. 

En cierto modo, la ordenación por inserción y por ondas son opuestas. Donald 
Shell decidió crear un método que combinara lo mejor de ambos. De esa forma, 
intentó mejorar la ordenación por inserción moviendo las entradas largas distan- 
cias, como en la ordenación por ondas. Considérese la siguiente lista de números: 


1S7,13,29, 11,7, 8; 4,5,1, 97, 6 


Supóngase que en vez de comparar 157 con 13, se compara con 8 (es decir, se 
compara el primer elemento con el séptimo). En vez de comparar el segundo ele- 
mento con el tercero, se compara con el octavo. La idea es comparar elementos 
que están lejos uno del otro, en vez de ser adyacentes. Resumiendo, se divide la 
lista en seis listas diferentes. A continuación se ordenan estas listas de dos elemen- 
tos. En este punto, se tendrán seis listas, cada una de las cuales está ordenada. En 
el ejemplo anterior, serían las siguientes: 


8,157 
4,13 
Xo. 
1,9 
11,97 
6,7 


Naturalmente la lista completa no está ordenada, pero aquí viene la idea real- 
mente inteligente de Shell. Se combinan las seis listas pequeñas colocando el pri- 
mer elemento de cada lista de dos elementos en una nueva lista y luego se añaden 
todos los segundos elementos. La nueva lista tendrá el siguiente aspecto: 
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8,4,2,1,11,6,157,13,5,9,97,7 


A continuación, Shell descompone las lista en tres listas de cuatro elementos 
cada una. La primera lista contiene el primer, cuarto, séptimo y décimo elementos; 
la segunda lista contiene el segundo, quinto, octavo y undécimo elementos; y así 
sucesivamente: 


1,8,9, 157 
4,11;13,97 
2,5, 6,7 


Ahora se combinan estas tres listas usando la misma técnica anterior (todas las 
primeras entradas, luego todas las segundas entradas, etc.). La lista resultante sería 
la siguiente (y estaría casi ordenada): 


1, 4, 2, 8, 11, 5, 9, 13, 6, 157, 97, 7 


Finalmente se realiza una ordenación por inserción (lo que significa comparar 
elementos adyacentes hasta que todos los elementos se hayan movido al sitio co- 
recto). La idea es que la ordenación es eficiente cuando no se tienen que mover 
elementos muy lejos, y en este punto los elementos ya se han movido a posiciones 
cercanas de donde deberían estar. 

He aquí una versión de la ordenación de Shell: 


Sub OrdenacionShell (Lista) 
Dim NumEntradas, Increm, 1, J, Temp 
NumEntradas = UBound (Lista) 
Increm = NumEntradas Y 2 
Do Until Increm < 1 
For 1 = Increm To NumEntradas 
Temp = Lista(1) 
For J = I - Increm To 0 Step -Increm 
If Temp >= Lista(J) Then Exit For 


Lista(J + Increm) = Lista(J) 
Next 
Lista(J + Increm) = Temp 
Next 
Increm = Increm Y 2 
Loop 


End Sub 
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El bucle Do divide las listas en listas más pequeñas. Dentro del bucle Do, el 
bucle más interno For-Next realiza una ordenación por inserción de las listas más 
pequeñas. Ya que cada elemento de la lista más pequeña difiere del siguiente en el 
valor de la variable Increm, la opción Step proporciona una forma de trabajar con 
listas más pequeñas. La ordenación Shell funciona bien con listas que tienen mu- 
chos miles de entradas, aunque después de cerca de 5000 elementos no será tan 
rápida e Internet Explorer mostrará una advertencia indicando que el script está 
consumiendo demasiado tiempo. 


NOTA: La velocidad de la ordenación de Shell depende en cierta forma de los números 
que se utilizan para dividir la lista en listas más pequeñas. Normalmente se denominan 
incrementos (el 6, 3 y 1 utilizados en el ejemplo anterior) y se deben seleccionar con cuida- 
do. Los números utilizados en el ejemplo (la mitad del tamaño actual de la lista) son la 
selección original de Shell. Hoy en día se sabe que se pueden obtener resultados ligera- 
mente mejores con otros incrementos. Para los tipos de listas con los que se van a encon- 
trar los programadores de VBScript, la selección original de Shell funcionará lo suficiente- 
mente bien. 


REUTILIZACIÓN 


Si se crea un conjunto de funciones y subprocedimientos, Internet Explorer permi- 
te su fácil reutilización. No hace falta cortar y pegar un procedimiento en cada 
script que lo necesite. Todo lo que hay que hacer es almacenar los procedimien- 
tos en un archivo con extensión .vbs y agregar unas pocas lineas al script como 
las siguientes (asegúrese de agregar estas líneas como un segundo conjunto de 
etiquetas <SCRIPT> </SCRIPT>, fuera de las etiquetas estándares <SCRIPT> 
</SCRIPT>): 


<SCRIPT 
LANGUAGE="VBSCRIPT" 
SRC="C:YMisScriptsiUtilidades.vbs"> 
</SCRIPT> 


¡De ahora en adelante, se puede utilizar todo el código VBScript del archivo 
Utilidades.vbs como si se hubiese escrito en el propio script! 


DISEÑO DE SCRIPTS 


Para finalizar el capítulo, se dan unas ideas generales de la forma de escribir scripts. 
La mejor forma de ser un programador eficiente es adaptar un diseño modular a 
los scripts. Hay que crear muchos pequeños subprocedimientos y funciones, y 
minimizar el uso de código al nivel de script. 

Después de todo, cuando hay algo dificil de realizar, normalmente se divide en 
tareas más pequeñas. A menudo estas tareas más pequeñas siguen un orden natu- 
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ral; lo primero que se construye de una casa son los cimientos. Lo mejor es escri- 
bir los scripts empezando por lo general para llegar después a lo particular. Se 
empieza con la idea global. ¿Qué controles se necesitan? ¿Qué tienen que hacer 
los procedimientos de eventos? A continuación se divide en etapas. Esto permite 
ver el bosque aunque haya demasiados árboles. 

Los borradores en papel también ayudan; el primer borrador para un script 
sofisticado podría listar los controles y los procedimientos de eventos con las ta- 
reas que tienen que hacer. Se continúa refinando el borrador agregando funciones 
y subprocedimientos de ayuda hasta que se pueda ver fácilmente el código de cada 
función y subprocedimiento. 


- Capítulo 


Pruebas, depuración 
y detección de errores 


Hasta ahora se ha vivido con la creencia de que todo el código que se ha escrito 
estaba libre de errores. En realidad, los programadores siempre han de seguir estos 
pasos: 

1. Probar el código (lo que casi siempre revela errores). 

2. Arreglar los errores encontrados. 
3. Volver a probar el código. 
4 


Repetir los pasos 2-3 tantas veces como sea necesario. 


EL UNIVERSO DE LOS ERRORES 


Actualmente, hay dos especies de errores de programación: errores de sintaxis y 
errores lógicos. 


Errores de sintaxis 


Un error de sintaxis es el resultado de una sentencia que viola las reglas gramati- 
cales del lenguaje VBScript. Consecuentemente, un error de sintaxis impide que el 
programa se ejecute. Una palabra mal escrita es un ejemplo de error sintáctico, 
como se muestra aquí: 


Documento, Writ "Hola? 
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La línea de código correcta sería: 
Documento.Write "Hola" 


En el Capítulo 2, se vio cómo gestiona la versión 4 de Microsoft Internet Ex- 
plorer los errores sintácticos. Se verá un cuadro de diálogo, como el que se mues- 
tra en la Figura 7.1, que pregunta si se quiere depurar la página actual. 

Los errores sintácticos son fáciles de solucionar. He aquí lo que se hace nor- 
malmente: 


1. Se hace clic sobre el botón No en el cuadro de diálogo. 


2. Se abre el código fuente en el Bloc de notas seleccionando Código fuente 
en el menú Ver, 


3. Se corrige el error. 
4. Se guarda el archivo. 


5. En Internet Explorer, se hace clic sobre el botón Actualizar (o se pulsa la 
tecla FS) para verificar que se ha solucionado el problema. 


Errores lógicos 


Un error lógico hace que el programa genere resultados incorrectos pero no impi- 
de que el programa se ejecute. En consecuencia, los errores lógicos son más difíci- 
les de solucionar que los sintácticos. El primer problema es encontrarlos; los erro- 
res lógicos están normalmente ocultos, revelándose sólo ocasionalmente y bajo 
determinadas circunstancias. Por ejemplo, un programa puede parecer que funcio- 
na perfectamente hasta la primera vez que un usuario deja una casilla de texto en 
blanco. Entonces el programa se hace un lío. Probar el programa es la única forma 


jel archiv 


A 


Figura 7.1. Cuadro de diálogo resultante de un error de sintaxis. 
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de que los errores salgan a la luz. He aquí algunas sugerencias para probar. (Re- 
sulta útil tener una copia en papel del código fuente. Se puede imprimir el código 
desde Microsoft ActiveX Control Pad o desde el Bloc de notas.) 


Verificación de que datos aleatorios producen 
resultados razonables 


Utilizando la calculadora de hipotecas del Capítulo 3 como ejemplo, se pueden 
probar distintas cantidades para ver si los resultados tienen sentido. Suponiendo 
que se utiliza el mismo interés y periodo, el pago mensual para una hipoteca de 
$100.000 debería ser el doble que el de una hipoteca de $50.000. 

La elección de los datos de prueba es vital. Se deben probar todos los posibles 
caminos de ejecución del código para tener alguna esperanza de que no habrá errores. 
Se necesitan muchos escenarios que probar. 


5 Prueba de los casos de frontera 


Esto quiere decir probar qué ocurre si el usuario olvida introducir algo o si intro- 
duce un valor que está en los límites de las posibilidades del programa. Por ejem- 
plo, ¿qué ocurre si un usuario de un formulario de pedidos por catálogo introduce 
por error un O como número de unidades a pedir? (¡Ciertamente no se querrán 
enviar facturas por valor de $0.00!) 


DISEÑO DE PROGRAMAS PROACTIVO 


Probar no es divertido y depurar es incluso peor. La vida puede resultar mucho 
más sencilla si el programa se descompone en muchas funciones y subprocedi- 
mientos, cada uno de los cuales, de forma ideal, realiza una única tarea. Se pueden 
probar muchos procedimientos individuales mucho más fácilmente que un gran 
trozo de código que recuerde a un plato de espagueti. Resumiendo, es mejor pro- 
bar cada función o subprocedimiento por separado sabiendo que se supone que 
debe hacer una cosa, y hacerla correctamente. Por ejemplo, supóngase que se ne- 
cesita sumar varios números almacenados en un array. Si se construye una función 
para realizar esta tarea, como se muestra en el siguiente ejemplo, será fácil com- 
probar que la función opera correctamente: 


Function Sumar (MiArray) 
Dim I, Total 


For I = O To UBound(MiArray) 
Total = Total + MiArray (I) 
Next 


Sumar = Total 
End Function 
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Por ejemplo, se sabrá rápidamente si se ha escrito un signo menos en vez de un 
signo más porque la suma incorrecta se puede mostrar si se utiliza un cuadro de 
mensaje para probar el resultado de llamar a la función, como se muestra en el 
siguiente ejemplo: 


Dim I, A(5) 
For I = 1 To 5 

AlI) = 1 
Next 


MsgBox Sumar (A) 


La misma técnica de cuadro de mensaje mostrará la suma incorrecta si se escri- 
bió incorrectamente lo siguiente: 


For I = 0 To UBound(Miarray) 
Total = MiArray (1) 
Next 


¡En este caso, la suma mostrada es igual a la última entrada del array! 
O, olvidando que los índices de los arrays empiezan en O en lugar de en 1, se 
puede haber escrito lo siguiente: 


For I = 1 To UBound(Miarray) 
Total = Total + MiArray(1) 
Next 


Si este pequeño trozo de código formara parte de una sección de código de 100 lí- 
neas, ¿hubiera resultado fácil encontrar el error? Es mejor diseñar el programa como 
una colección de funciones y subprocedimientos depurados que cooperan entre sí. 

El motivo último de utilizar la modularización, como se denomina a este tipo 
de diseño, es hacer que el proceso de depuración sea más sencillo. La idea consiste 
en probar que cada función y subprocedimiento gestionan correctamente todos los 
posibles parámetros que se le puedan pasar. 

También se quiere probar los procedimientos para tener la seguridad de que no 
causan efectos laterales no deseados. Por ejemplo, no deberían cambiar paráme- 
tros incorrectamente (véase el paso por referencia del Capítulo 6) o los valores de 
variables al nivel de script. Una buena práctica consiste en requerir continuamente 
que el programa se ejecute de forma correcta, no importa que todavía no estén 
implementados todos sus requisitos. 

En estos momentos puede surgir la pregunta de cómo asegurar que un progra- 
ma se ejecute correctamente en cada etapa de su desarrollo. Para su ejecución, el 
programa puede necesitar el resultado de una función o subprocedimiento que to- 
davía no se ha escrito. En este caso, la mejor técnica es escribir un sustituto, Un 
sustituto es un contenedor para un procedimiento que eventualmente formará par- 
te del programa. 
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El concepto de sustituto puede resultar abstracto, por lo que he aquí un ejem- 
plo de cómo utilizar uno. Supóngase que se está escribiendo un programa para 
traducir la entrada de un usuario a una especie de latín. He aquí las reglas básicas: 


m A una palabra que empiece por vocal se le pone el sufijo «ay». 


m A una palabra que empiece por una o más consonantes, las consonantes se 
mueven al final de la palabra, y entonces se le añade a la palabra el sufijo 
«ay». 


¿Esay entiendenay aslay eglasray? 

Este programa es bastante complicado de implementar, pero por ahora lo prin- 
cipal es concentrarse en la idea de construirlo a partir de funciones individuales. 
Primero se hace una lista de las funciones necesarias: 


m Una función para separar la cadena completa en palabras. (Esto está incor- 
porado en VBScript, véase el Capítulo 5 para una descripción de la función 
Split.) 


m Una función para tratar las palabras que empiecen por consonante. (Trasla- 
dar las consonantes iniciales y añadir el sufijo «ay».) 


m Una función para tratar las palabras que empiecen por vocal. (Añadir el su- 
fijo «ay».) 


m Una función para juntarlo todo. (Esto está incorporado en VBScript, véase 
el Capítulo 5 para una descripción de la función Join.) 


El objetivo es escribir un programa que funcione en cada etapa de su desarro- 
llo, ¿Cómo hacerlo? Primero se prueban palabras simples que empiecen por con- 
sonantes, asegurando que el programa las trata correctamente. Eso prueba la se- 
gunda función de la lista anterior. Luego se prueban frases para verificar cómo se 
engranan todas las funciones. 

Puede surgir la pregunta de cómo probar frases cuando todavía no se ha escrito 
la función que trata las palabras que comienzan por vocal. No se quiere complicar 
la lógica del programa escribiendo esta función todavía; eso haría que cualquier 
error resultara dificil de encontrar. La idea es escribir un sustituto para esta fun- 
ción, como se muestra aquí: 


Function Vocal (Palabra) 
'Convierte una palabra con una vocal inicial 
'en la palabra en una especie de latín 


Vocal = Palabra 
End Function 


Ahora se puede probar una frase como ésta: 


¿Puede esto funcionar? 
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El programa debería mostrar lo siguiente: 


¿Uedepay esto uncionarfay? 


En este punto, se puede estar seguro de dos cosas. Primero, la función trata las 
palabras que empiezan por consonante de forma correcta. Segundo, la lógica glo- 
bal del programa funciona correctamente. Ahora se puede escribir la función que 
trata las palabras que empiezan por vocal. Cuando después se pruebe el programa 
completo, se sabrá que cualquier fallo estará localizado en la nueva función. 


SUGERENCIA: A veces es útil que la función sustituta muestre un cuadro de mensaje que 
identifique el nombre de la función (en este caso Vocal). De esa forma, se puede estar 
seguro de que la función se invoca cuando corresponde. 


Aislamiento de errores lógicos 


Supóngase que las pruebas detectan un error lógico. Por ejemplo, se sabe que el 
programa debería realizar una acción 10 veces, pero en su lugar continúa ejecután- 
dose sin parar. Obviamente, saber que se tiene un error no es suficiente. Se ha de 
aislar, es decir, encontrar la parte del programa que está causando el problema. Si 
se ha seguido la aproximación modular antes descrita, el programa estará compuesto 
por muchas funciones y subprocedimientos en cooperación, cada uno de los cua- 
les realiza una cosa, por lo que la tarea será mucho más fácil, ¿Por qué? Porque se 
termina descubriendo la función o subprocedimiento que no funciona bien. 

Ahora, supóngase que se ha escogido para probar una función o subprocedi- 
miento con fallos. Sólo hay tres posibilidades: 


m Lo que entra es incorrecto. Un parámetro que se le ha pasado a la función o 
subprocedimiento lo hace funcionar mal. 


m Lo que sale es incorrecto. La función o subprocedimiento está enviando in- 
formación incorrecta a otra parte del programa. Por ejemplo, la función o 
subprocedimiento puede estar originando un efecto lateral imprevisto cam- 
biando una variable al nivel de script. 


m Algún código de dentro de la función o subprocedimiento es erróneo. Por 
ejemplo, una operación se realiza demasiadas veces. 
En los dos primeros casos, el problema procede de una o todas los causas si- 
guientes: 
m El valor de un parámetro cuando se le pasa a la función o subprocedimiento. 
m El valor asignado a un parámetro dentro de la función o subprocedimiento. 


m El valor asignado a una variable al nivel de script dentro de la función o 
subprocedimiento. 
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¿Cómo se decide cuál es la situación? Bien, es difícil imaginar una función o 
subprocedimiento que no se pueda analizar en un trozo de papel para determinar 
que pasaría con varios valores de datos de prueba. Se debe verificar la función o 
subprocedimiento simulando lo que haría la computadora. (Esto significa no hacer 
ninguna suposición sobre lo que la computadora debería saber en dicho punto; no 
se debe asumir que las variables tienen ciertos valores a menos que se esté segu- 
ro.) Si todavía no se ha encontrado el problema, se ha de comprobar que la función 
o subprocedimiento hace lo que se supone que tiene que hacer. Esto se puede ha- 
cer mediante Microsoft Script Debugger, que se describe a continuación. 


HACIA LA DEPURACIÓN 


La primera parte de este capítulo describe lo que hay que hacer, pero los conoci- 
mientos teóricos sin habilidades prácticas no hacen que un programador llegue 
muy lejos. Un tema fundamental del resto de este capítulo es describir el cómo, y 
para los programadores de VBScript el cómo se consigue mejor conociendo a fon- 
do las herramientas que proporciona Microsoft Script Debugger (que se acompaña 
en el CD adjunto). 

Si se hace una lista de lo que hay que hacer basándose en lo que se acaba de 
aprender, se puede llegar a lo siguiente: 


m Detener la ejecución de un programa al principio de un procedimiento espe- 
cífico para empezar a verificar dicho procedimiento. También se necesita 
una forma de detener un programa en una línea específica dentro de un pro- 
cedimiento. 

Se puede hacer cualquiera de estas tareas de dos formas. La primera 
sería escribir una sentencia Stop (que no es sino la palabra clave Stop) al 
principio del procedimiento que se desea verificar. (También se puede es- 
cribir una sentencia Stop dentro de un procedimiento.) Esto hace que el pro- 
grama se ejecute hasta que alcance la sentencia Stop, y entonces se muestra 
Script Debugger. La segunda forma sería configurar un punto de ruptura 
por medio de Script Debugger. Un punto de ruptura no es sino el equivalen- 
te de una sentencia Stop temporal. 


m Asignar un nuevo valor a un parámetro o variable y entonces ver el resulta- 
do. En el punto del programa en el que se detenga, también se debe poder 
ver los valores actuales de todas las variables del procedimiento (y de cual- 
quier variable al nivel de script). 

Script Debugger permite hacer esto por medio de su ventana de comandos. 


m Ejecutar el programa linea a linea; en otras palabras, relentizar la ejecución. 
Haciendo esto, se podrá ver exactamente cómo procesa el programa cual- 
quier valor que se asigne a los parámetros o variables. 

Script Debugger permite hacer esto por medio de sus comandos Step. 
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Eso es todo, lo único que queda es mostrar cómo se hace. 


Cómo iniciar Script Debugger 


Script Debugger se muestra en la Figura 7.2. Obsérvese que Script Debugger in- 
cluye un completo editor con códigos en colores, además de sus restantes caracte- 
rísticas. 

Hay cuatro formas de iniciar Script Debugger: 


m Con la página Web que se quiera editar abierta en Internet Explorer, selec- 
cione Depurador del archivo de comandos en el menú Ver y luego seleccio- 
ne Abrir en el menú desplegable. 


m Utilice la sentencia Stop en el programa VBScript. Script Debugger se mos- 
trará automáticamente cuando la ejecución del programa alcance la senten- 
cia Stop. 


m Haga clic sobre el botón Sí en el cuadro de diálogo que se muestra en la 
Figura 7.1. 


m En Explorador de Windows, abra el archivo de la aplicación Script Debug- 
ger (Msscrdbg.exe). O se puede configurar un acceso rápido a este archivo 
en el escritorio, lo que resulta mucho más fácil. 


Excepto en el último caso, se trabajará con la página Web que se muestre 
actualmente en Internet Explorer. En el último caso, se puede abrir el código fuen- 
te de una página Web existente seleccionando Open en el menú File de Script 


em 
| caro 


Aim uva 
TPT LAO 


Figura 7.2. Script Debugger. 
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Debugger, o se puede crear una nueva página Web desde cero seleccionando New 
en el menú File. 

Una vez que Script Debugger se esté ejecutando, se puede depurar cualquier 
página que esté actualmente activa en Internet Explorer seleccionando Running 
Documents en el menú View. Se muestra la ventana que aparece en la Figura 7.3. 

Seleccione el documento que quiera depurar siguiendo los siguientes pasos: 


1. Abra el árbol de documentos haciendo clic sobre el signo más. 


2. Haga doble clic sobre el nombre del documento, 


Antes de describir cómo se utiliza Script Debugger, hay una complicación más 
que hay que advertir. Cuando se depura un programa que se ejecuta en Internet 
Explorer, Script Debugger abre el archivo en modo de «sólo lectura». (Esto puede 
verse si se mira de cerca la barra de títulos de la Figura 7.2.) Incluso aunque se 
encuentre lo que está mal, no se puede corregir el archivo directamente en Script 
Debugger. 

Realizar los cambios requiere un proceso un tanto complicado, ya que no se 
puede simplemente editar el script que se muestra en la ventana de Script Debug- 
ger. Cuando se quiera hacer hasta el más mínimo cambio en una página que se 
ejecuta en Internet Explorer, se tienen dos opciones. 

Se puede guardar la página Web con un nuevo nombre seleccionando Save As 
del menú File de Script Debugger. Se puede entonces editar el nuevo archivo en 
Script Debugger. Después de realizar los cambios, se tiene que reiniciar el proce- 
dimiento de prueba cargando la página con su nuevo nombre otra vez en Internet 
Explorer, con la esperanza de que no tengan que realizarse muchos más cambios, 


Running Document 


Figura 7.3. Ventana Running Documents. 
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ya que cada vez se tendrá que repetir el proceso de renombrado, edición, prueba, 
renombrado, etc. 

Una segunda opción es seleccionar Close en el menú File para eliminar el ar- 
chivo de Script Debugger. Luego se abre el archivo en el Bloc de notas seleccio- 
nando Código fuente en el menú Ver de Internet Explorer. Se hacen los cambios y, 
a continuación, se inicia de nuevo el proceso de pruebas. 

Es preferible la segunda opción. 


SESIÓN DE DEPURACIÓN 


Se va a ir a través de una sesión de depuración paso a paso. Para ello, se necesita 
obviamente un programa con errores. Aunque este ejemplo está un poco simplifi- 
cado, se pretende usar un programa que pudiera aparecer en el mundo real. He 
aquí un problema que se pretende resolver construyendo una página Web. Un pro- 
fesor quiere que cada estudiante pueda calcular su nota media final introduciendo 
los resultados de los exámenes en una página Web. Éstas son las reglas que se han 
de utilizar para determinar la nota final: 


m La nota final se basa en tres exámenes intermedios y un examen final, cada 
uno de los cuales recibe una puntuación numérica. 


m_Los resultados de los tres exámenes intermedios y del examen final se su- 
man. El examen final se cuenta dos veces, 


m La media de las cinco puntuaciones determina la nota final. 


m Si la media es 90 o superior, el estudiante obtiene una «A», si es 80 o supe- 
rior una «B», y así sucesivamente. 


He aquí un primer intento de programa para hacer esto. (Este código puede 
encontrarse en el archivo Nota.htm en el CD adjunto.) 


<HTML> 
<HEAD> 


<TITLE>Una calculadora de notas</T 
<SCRIPT LANGUAGE="VBSCRIPT*> 


Option Explicit 
Dim A(4), Media 


For 1 = 1 To 4 
A(I)=InputBox("¿Cuál es la nota del estudiante en el examen " _ 
& 15 «?») 
Next 
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Media= CalculaMedia(A) 
MsgBox "Su nota final es * £ CalculaFinal (Media 


DRRER AREA RERA RAE ERRA RANA AAA rr RRA ARA RA RRA ARA AAA 


Function CalculaMedia (Notas 


Dim Total 
ForI»=1»=1704 

Total = Notas(I) 
Next 


CalculaMedia = Total / 4 
End Function 


ARA RARA RANA RAA RARA ARA RARA AAA A AA AA RAA ER AA AA AA ARA AA AA AA AA AA ARA 
Function CalculaFinal (Media) 


If Media> 90 Then 
CalculaFinal= "A" 
Elself Media> 80 Then 
CalculaFinal= "B" 
ElseIf Medias 70 Then 
CalculaFinal= *c* 
Else 
CalculaFinal= "gr 
End If 
End Function 


--> 


</SCRIPT> 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 


Supóngase que se piensa que escribir un programa para este problema es tan 
fácil como abrir el Bloc de notas, empezar a escribir e inmediatamente empezar el 
proceso de pruebas (sin probar cada procedimiento individualmente). 


Proceso de pruebas 


Sobre la base del escenario anterior, al abrir la página en Internet Explorer lo pri- 
mero que se ve es el cuadro de diálogo de la Figura 7.4, indicando que existe una 
variable indefinida. Esto significa que aunque se haya usado la sentencia Option 
Explicit como es de suponer, se olvidó la declaración de una variable. 

No se necesita Script Debugger para ayudar a decidir qué hacer, por lo que se 
hace clic en el botón No, se selecciona Código fuente en el menú Ver y se va a la 
línea 12. 

A continuación se ve que se ha olvidado la declaración de la variable para 
contar denominada I usada en el primer bucle For-Next. 
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Figura 7.4. Cuadro de diálogo del primer error. 


SUGERENCIA: El Bloc de notas no tiene un contador de líneas; hay que contar las líneas 
de forma personal. Si se tiene un editor favorito que muestre información de números de 
línea, podría utilizarse como alternativa. 


Este error se puede solucionar añadiendo una variable denominada l a la sen- 
tencia Dim arriba del bucle, guardando el archivo y entonces haciendo clic en el 
botón Actualizar de Internet Explorer. En este punto, se muestra el primer cuadro 
de entrada. Se empieza a probar con casos fáciles, por ejemplo, cuando el estu- 
diante recibe todas las notas con 100 o todas con 0. Al introducir 100 en los cuatro 
cuadros de entrada se muestra el cuadro de mensaje de la Figura 7.5. 

En este punto, se inicia el depurador, Al hacer clic sobre el botón Si de forma 
conveniente, el cursor se sitúa en la línea errónea (o cerca de ésta). Se observa 
entonces el siguiente código: 


Figura 7,5. Cuadro de diálogo de error de subíndice fuera del intervalo. 
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Function CalculaMedia(Notas 
Dim Total 


For T= l = t To 4 
Total = Notas(I) 
Next 


CalculaMedia = Total / 4 
End Function 


Se habia cometido otro error introduciendo la primera linea de código en vez 
de la segunda: 


For I= l1 5. 1.To 4 


For I = 1 To 4 


Es necesario cerrar el depurador, abrir el Bloc de notas, hacer el cambio y 
guardar el archivo. Para volver a iniciar el proceso de prueba, se hace clic en el 
botón Actualizar de Internet Explorer y se introducen cuatro 100 como se hizo la 
primera vez. Desgraciadamente, el resultado es el cuadro de mensaje de la Figu- 
ra 7.6. Un estudiante con notas perfectas preferiria no obtener una F, y para evitar 
males mayores, se debe corregir el problema rápidamente. 

Obviamente, hay algo mal en la función que utiliza la media para calcular una letra 
de la nota final. En este punto, se empieza a lamentar no haber pensado el problema 
de forma más detenida, haciendo uso de la primera regla de la programación: 


Cuanto antes en el proceso de programación se empiece a escribir el código, 
más tiempo llevará hacerlo funcionar. 


Y, naturalmente, se empieza a tener remordimiento de conciencia por no haber 
probado cada procedimiento de forma individual. Se decide continuar, sabiendo 
que todavía se puede hacer uso de la sentencia Stop o de un punto de ruptura para 
verificar cada función individualmente. 


Sentencia Stop 


Hay dos formas de detener un programa: colocando una sentencia Stop en el pro- 
grama o usando un punto de ruptura. Cuando Internet Explorer encuentra una sen- 
tencia Stop, detiene la ejecución del programa en dicho punto. La otra forma es 


Visual Basic 


Figura 7.6. Cuadro de diálogo que vería el usuario. 
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abrir el código fuente en Script Debugger, mover el cursor a la línea en donde se 
quiere configurar el punto de ruptura y seleccionar Toggle Breakpoint en el menú 
Debug. Desgraciadamente, al hacer clic en el botón Actualizar de Internet Explo- 
rer se cancela el punto de ruptura en Script Debugger. Por esta razón, es preferible 
usar sentencias Stop en lugar de puntos de ruptura. 


ADVERTENCIA: Se deben eliminar manualmente todas las sentencias Stop después de 
terminar de depurar el programa. 


Ahora supóngase que se ha utilizado el Bloc de notas para agregar una senten- 
cia Stop justo después de las sentencias de entrada de datos. El código sería el 
siguiente: 


Option Explicit 
Dim 1, A(4), Media 


For L = 1 To A 
A(1) = InputBox(*"¿Cuál es la nota del estudiante en el examen " _ 
é Tan) 
Next 


Stop 


Tras guardar el archivo y hacer clic en el botón Actualizar, se introducen cua- 
tro 100 de nuevo. Cuando Internet Explorer encuentra la sentencia Stop, automáti- 
camente abre Script Debugger. Se deberia ver una pequeña flecha amarilla en la 
sentencia Stop. (Véase la Figura 7.7.) 


Dim I, Ata); Nedin 


Por I= 1704 
ALE) = InputBox("¿Cuál es la nota del estudiante en el 4 
crm 
Mexe 
Stop 


Media” Calculaledia(a) 
MsgBox "Su nota final es " £ Calculafinel (Media) 


Figura 7.7. Trabajando con un programa detenido. 
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Ahora se utilizan las demás características de Script Debugger para terminar 
de aislar el problema. Se debería empezar por la ventana de comandos que permite 
ver valores de variables e incluso cambiarlos. 


Cómo utilizar la ventana de comandos 


Cuando el programa se detiene, se puede seleccionar la opción Command Window 
en el menú View de Script Debugger. Esto muestra la ventana de la Figura 7.8. 

La ventana Command Window permite examinar y cambiar todas las variables 
que están en el ámbito actual. (Eso significa que se pueden ver o cambiar variables 
al nivel de script en cualquier momento, pero sólo se pueden ver o cambiar varia- 
bles de un procedimiento cuando el programa se detenga dentro del procedimien- 
to). El array denominado A es una variable al nivel de script, por lo que se puede 
utilizar la ventana Command Window para verificar si contiene los valores correc- 
tos. El comando que permite ver valores es simplemente un signo de fin de inte- 
rrogación. Escriba el siguiente comando y pulse la tecla Intro: 


?A(1) 


Debería verse 100 en la ventana de comandos. Después de verificar el resto del 
array, se sabe que contiene correctamente cuatro valores 100. Por tanto, el proble- 
ma debe estar en el análisis de los datos. 

La ventana de comandos permite invocar funciones; todo lo que hay que hacer es 
introducir los parámetros adecuados. Por ejemplo, si se introduce el siguiente comando 
se verá cómo aparece una «A» en la ventana de comandos. (Véase la Figura 7.9.) 


? CalculaFinal (100) 


Command 


Figura 7.8. Ventana Command Window. 
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La tecla F8 es el 
método abreviado 
del comando 
Step Into. 


Figura 7.9. Introducción de comandos en Command Window. 


A continuación se debe probar un valor de frontera, tal como 90, para la me- 
dia. Desgraciadamente, al introducir el siguiente comando se genera una «B» en 
lugar de una «A»: 


?CalculaFinal (90) 


Claramente, los tres símbolos > de la función CalculaFinal deberían sustituirse 
por símbolos >=. Después de solucionar este problema y probar de nuevo la fun- 
ción, se puede estar seguro de que la función CalculaFinal es correcta. 

El siguiente paso es probar la función CalculaMedia. Cuando se haga esto, se 
ha de tener en cuenta que el array denominado A contiene cuatro 100. Sin embar- 
go, al introducir el siguiente comando se obtiene un valor de 25: 


? CalculaMedia(A) 


Está claro que hay un problema en la función CalculaMedia. 


Comandos Step 


El programa está detenido en la línea siguiente a la introducción de los datos. Se 
pretende continuar ejecutando el programa línea a línea. Para hacer esto, seleccio- 
ne Step Into en el menú Debug. El comando Step Into le indica al depurador que 
proceda línea a línea. Cada vez que se selecciona este comando, la pequeña flecha 
amarilla que marca la localización actual se mueve. Por ejemplo, si se selecciona 
Step Into una vez, se estará en la siguiente línea: 


Media = CalculaMedia(A) 
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Si se selecciona este comando de nuevo, se irá a la primera línea de la función 
CalculaMedia (el principio del bucle For-Next). Si se selecciona Step Into dos 
veces más, se empieza el proceso de sumar los números. Utilice la ventana de 
comandos para verificar el valor de Total en cada pasada por el bucle. Esto revela 
dos fallos en una línea. Se escribió: 


Total = Notas(I) 
Se debería haber escrito lo siguiente: 
Total = Total + Notas(1) 


Se ha de corregir el fallo y volver a comenzar el proceso de prueba. Repitiendo 
la anterior secuencia de pasos, utilice la ventana de comandos para comprobar el 
valor (corregido) de Total en cada pasada por el bucle. Esto revela el segundo 
fallo. Las notas del array son cadenas porque fueron introducidas en un cuadro de 
entrada. El signo de suma concatena las cadenas en vez de sumar números enteros. 
Se han de convertir las cadenas a números, de esta forma: 


Total = Total + CInt(Notas(1)) 


Ahora la ventana de comandos indica que el valor de Total es correcto en cada 
pasada a través del bucle. 

En este punto, se piensa que se han solucionado todos los errores del programa, 
por lo que se decide volver a probar sin usar Script Debugger. Se comenta la senten- 
cia Stop de forma que no se inicie Script Debugger. (No se elimina todavía, ya que 
se utilizará para encontrar todavía otro error.) Entonces se descubre que el estudian- 
te perfecto va a obtener una «A». El buen estudiante B con cuatro notas 85, obtiene 
una «B». Se empieza a tener alguna esperanza. Luego se prueba con alguien que 
mejora mucho al final, pasando de varios 85 a un perfecto 100. Ya que el final 
cuenta doble, este estudiante merece una «A», pero el programa genera una «B». 

Se restaura la sentencia Stop y se usa el comando Step Into otra vez. Esto reve- 
la el último error: el final no se está contando doble. He aquí la función Calcula- 
Media corregida: 


Function CalculaMedia (Notas) 
Dim Total 


otal + CInt(Notas (1)) 


Next 
Total = Total + CInt(Notas(4)) 


CalculaMedia = Total / 5 
End Function 


Ya que pruebas adicionales del programa muestran que funciona bien, se pue- 
de finalmente eliminar la sentencia Stop. 
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Una alternativa al programa que se acaba de depurar sería dar a los estudiantes 
la posibilidad de colocar sus notas en cuadros de texto de forma que tengan la 
oportunidad de verificar sus entradas. Entonces podrían hacer clic sobre un botón 
de comando para calcular su nota final. A continuación se examina dicha solución, 
lo que permite usar unas pocas técnicas de depuración adicionales. 


MÁS ACERCA DE SCRIPT DEBUGGER 


La combinación de 
teclas Mayúsculas- 
F8 es el método 
abreviado del 
comando Step 
Over. 


Se supone ya que se está convencido de la utilidad de Script Debugger. Existen 
todavía algunas características adicionales, y este apartado va a mostrar qué más 
puede hacer Script Debugger. 

Si se encontrara que la sentencia Stop no es conveniente, existen dos formas 
de evitar su uso. 


m Indicarle a Script Debugger que se detenga en la primera sentencia del script. 


1 Introducir un punto de ruptura en un procedimiento de evento de un script 
ya cargado. 


Para indicarle al depurador que se detenga en la primera sentencia de un script, 
se han de seguir los siguientes pasos: 


1. Cargar el script en Internet Explorer. 

2. En el menú Ver, seleccionar Depurador del archivo de comandos. 
3. Seleccionar Interrumpir en la próxima declaración. 

4. En el menú desplegable, hacer clic sobre el botón Actualizar, 


Indicarle a Script Debugger que se detenga en la primera sentencia de un script 
es útil sólo si se necesita empezar a depurar en la primera sentencia del script o si 
se puede utilizar otra cosa que no sea el comando Step Into. (Utilizando sólo este 
comando, llevaría mucho tiempo hasta llegar a la parte del script que se quiere 
depurar.) 

Por ejemplo, no sería problemático empezar al principio del programa si se 
tuviese una forma de decir: «Sé que este procedimiento es correcto; no entres 
dentro línea a línea, sólo haz lo que dice», o «Ahora que he comprobado lo que 
quería en un procedimiento, simplemente ejecuta el resto de sentencias automáti- 
camente». 

De forma conveniente, Script Debugger tiene características que se ajustan 
perfectamente a lo que se quiere hacer. Se le indica al depurador que ejecute todo 
el código de un procedimiento de una vez seleccionando Step Over desde el menú 
Debug cuando se llegue a la línea que llama al procedimiento. Se le indica al de- 
purador que ejecute automáticamente el resto de las sentencias del procedimiento 
seleccionando Step Out en el menú Debug. 
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La combinación Para ver cómo se introduce un punto de ruptura en un procedimiento de evento 
Cel Fao de un script ya cargado, se va a utilizar una versión de la calculadora de notas en la 
ES dy A que el cálculo de la nota final se dispara a partir de un evento, la pulsación de un 
abreviado del botón por parte del usuario. Como puede verse en la Figura 7.10, esta versión 
comando tiene cinco etiquetas, cinco cuadros de texto y un botón de comando. 

Step Out. He aquí el script, que se encuentra en el archivo Nota2.htm del CD adjunto: 


option Explicit 


Sub cmdCalcula_Click 
Dim A(4), Media 


A(1) = txtPrimerExamen.Text 
A(2) = txtSegundoExamen. Text 
A(3) = txtTercerExamen.Text 
A(4) = txtExamenFinal.Text 


Media= CalculaMedia(A) 
txtNotaFinal.Text = CalculaFinal (Media 
End Sub 


Function CalculaMedia (Notas) 
Dim I, Total 


For I= 1704 

Total = Total + CInt(Notas(I)) 
Next 
Total = Total + CInt(Notas(4)) 


CalculaMedia = Total / 5 'cinco Notas 
End Function 


Figura 7.10. Calculadora de notas mejorada. 
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La tecla F9 es el 
método abreviado 
del comando 


Toggle Breakpoint. 


La combinación 
de teclas Ctrl- 
Mayúsculas-F9 

es el método 
abreviado del 
comando Clear All 
Breakpoints. 


La tecla FS es el 
método abreviado 
del comando Run. 


Function CalculaFinal (Media) 


Tf Media >= 90 Then 
CalculaFinal = "A" 
ElseIf Media >= 80 Then 
CalculaFinal = "B" 
ElseIf Media >= 70 Then 
CalculaFinal = "c" 
Else 
CalculaFinal = "gr 
End If 


End Function 


No ocurre nada hasta que el usuario no hace clic sobre el botón. Esto es lo que 
permite establecer un punto de ruptura con éxito. He aquí lo que hay que hacer: 


1. Cargar el script en Internet Explorer. 

2. En el menú Ver, seleccionar Depurador del archivo de comandos, 
3. En el menú desplegable, seleccionar Abrir. 
4 


. Hacer clic en cualquier parte de la primera línea del subprocedimiento 
emdCalcula_Click para situar el cursor allí. 


5. Situar un punto de ruptura en esta línea seleccionando Toggle Breakpoint 
en el menú Debug. 


Obsérvese el octágono rojo que añade el depurador a esta línea. Ahora ya está 
configurado el punto de ruptura, Al volver a Internet Explorer, introducir las cua- 
tro notas de examen y hacer clic sobre el botón Calcular, Script Debugger se de- 
tendrá en el punto de ruptura y se podrán utilizar todos los comandos que ya se han 
visto. 

Se pueden configurar múltiples puntos de ruptura, todos indicados por los oc- 
tágonos rojos. Cada punto de ruptura se puede activar o desactivar mediante el 
comando Toggle Breakpoint, o se pueden eliminar todos los puntos de ruptura de 
una vez seleccionando Clear All Breakpoints en el menú Debug. 


NOTA: El término toggle significa cambiar entre dos estados. Por tanto, al seleccionar 
el comando Toggle Breakpoint inicialmente activa un punto de ruptura. Volviendo a 
seleccionar el mismo comando, con el cursor en la misma línea, se desactiva el punto de 
ruptura. 


Si se tienen múltiples puntos de ruptura y se está detenido en uno de ellos, se 
puede querer ejecutar todo el código hasta el siguiente punto de ruptura. Para ha- 
cer esto, seleccione Run en el menú Debug. Si sólo se ha configurado un punto de 
ruptura y se está detenido en éste, al seleccionar el comando Run se ejecuta el 
resto de script. 
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SUGERENCIA: Todos los comandos del menú Debug tienen equivalentes en la barra de 
tareas. 


CAPTURA DE ERRORES 


La captura de errores significa indicarle a Internet Explorer que no se detenga 
cuando encuentre un error. Por lo general, no es una buena idea. Por ejemplo, si se 
está intentando dividir por O o se está intentando obtener el quinto elemento de un 
array con cuatro elementos, se trata de un error que se debería detectar y solucio- 
nar, Utilizar la captura de errores permite salir adelante con programas muy mal 
escritos en el sentido de que los programas se ejecutarán (de alguna manera). Lo 
que puede que no hagan es generar los resultados que espera el usuario, 

Ya que la captura de errores no es en general una buena práctica y se deberían 
probar los programas primero y de forma exhaustiva, ¿por qué terminar un capítu- 
lo sobre depuración explicando cómo utilizar la captura de errores? La respuesta 
es sencilla: hay errores que no tienen nada que ver con el código; son originados 
por cosas tales como una mala conexión de red o un nodo Web inactivo temporal- 
mente. (En el próximo capitulo se utilizará VBScript para controlar a dónde va 
Internet Explorer y lo que hace cuando llega a un nodo.) Es en situaciones como 
ésta en las que debería usarse la captura de errores. 

La sentencia On Error, que permite la captura de errores en VBScript, tiene el 
siguiente aspecto: 


On Error Resume Next 


Esto indica a Internet Explorer que si detecta algún error lo ignore y siga con 
la siguiente sentencia. 

Habiendo ya desaconsejado el uso de la captura de errores como sustitución de 
la depuración de programas, se explica a continuación el funcionamiento de la 
sentencia On Error. 

Primero, esta sentencia sólo funciona en el procedimiento que la contenga. Esto 
significa que puede quererse incluir una sentencia On Error en cada procedimiento 
del programa. Si no se hace esto y aparece un error en la llamada a un procedi- 
miento, Internet Explorer se moverá a la sentencia que siga a la llamada (no a la 
siguiente sentencia del procedimiento invocado). Por ejemplo, considérese el si- 
guiente código: 


option Explicit 
On Error Resume Next 


sentencial 
sentencia2 
MiSubprocedimiento 
sentencia3 
sentenciad 
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Sub Misubprocedimiento 
sentencia5 
sentencia6 
sentencia?, que origina un error 
sentencia8 
sentencia9 
End Sub 


Cuando aparezca el error de la sentencia 7, la ejecución procede con la senten- 
cia 3, no como cabría esperar con la sentencia 8, Si se quiere que la ejecución 
proceda con la sentencia 8, se debe incluir una sentencia adicional On Error en 
MiProcedimiento. 

Como ejemplo más simple, supóngase que se desea hacer una calculadora que 
divida el número de un cuadro de texto entre el número de otro cuando el usuario 
haga clic sobre un botón. El código es el siguiente: 


Sub cmdDivide_Click 
txtRespuesta.Text = txtPrimero.Text / txtSegundo. Text 
End Sub 


La primera vez que un usuario pruebe esto introduciendo un O en el segundo 
cuadro de texto, Internet Explorer mostrará un cuadro de error estándar, Se decide 
que en lugar de añadir las comprobaciones necesarias para ver si lo que el usuario 
introduce es correcto, se va a capturar el error de esta forma: 


Sub cmdDivide_Click 

On Error Resume Next 

txtRespuesta.Text = txtPrimero.Text / txtSegundo.Text 
End Sub 


¿Cuál es el resultado? Nada, lo que estuviera en el tercer cuadro de texto per- 
manece allí. Naturalmente esto confundiría a los usuarios. Es buena idea informar 
a los usuarios que su trabajo ha originado un error de forma que puedan informar 
al responsable. Esto se realiza con el objeto Err. 


Objeto Err 


Cuando Internet Explorer detecta un error, almacena información del error en las 
propiedades de un objeto incorporado denominado Err. El valor de la propiedad 
Description es una cadena que describe el error, y el valor de la propiedad Number 
es un entero que representa al error. Por ejemplo, si un usuario intenta dividir por 
cero, la propiedad Description debería contener «División por cero» y la propie- 
dad Number debería estar a 11. La documentación de VBScript contiene todas las 
descripciones de error de VBScript con los correspondientes números de error. 
(Vaya a la página Err Object, haga clic sobre See Also y, entonces, haga clic sobre 
Error Messages.) 
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Se recomienda que si se utiliza la captura de errores en un procedimiento siem- 
pre se añada un fragmento similar al siguiente al final del procedimiento: 


Mientras no If Err.Number <> 0 Then 
ocurra Un error, MsgBox "Por favor indique al propietario de esta página que" _ 
Err.Number = 0 £ * ha ocurrido el siguiente error: * _ 
& vbCrLf á vbCrLf £ Err.Description 
End If 


Esto proporciona la oportunidad de saber qué ocurrió para poder solucionarlo 
de forma que no vuelva a ocurrir. 


" Capítulo 


Modelo de objetos 
de Internet Explorer 


Hasta este punto, se ha utilizado la programación en VBScript para hacer una úni- 
ca página Web más interesante. En este capítulo, se va a presentar una potente 
característica de VBScript, la capacidad de controlar la propia versión 4 de Micro- 
soft Internet Explorer. Esto tiene la potencialidad de hacer las páginas Web toda- 
vía más interesantes. Por ejemplo, se puede usar VBScript para hacer que Internet 
Explorer vaya a una nueva página Web. Esta nueva página se puede visualizar en 
sustitución de la antigua, en un marco que se crea sobre la página antigua o incluso 
en una nueva ventana de visualización. Las últimas características, como pronto 
se verá, permiten mostrar a los usuarios el equivalente Web de la característica de 
la televisión denominada «imagen sobre imagen», donde se ve una pequeña venta- 
na o subventana con otro canal mientras se continúa viendo el programa original 
en la mayor parte de la ventana. 

También se puede usar VBScript para controlar exactamente lo que Internet 
Explorer envía al servidor, haciendo que los formularios basados en Web sean 
más rápidos de enviar que cuando los controla el propio Internet Explorer. Tam- 
bién se muestra cómo gestionar cookies con VBScript. (Las cookies son esos tro- 
zos de información, a menudo útiles, pero en ocasiones invasivos, que los servido- 
res Web pueden dejar en un disco duro.) 


NOTA: El modelo de objetos de Internet Explorer es amplio y complicado; sólo se pue- 
den tratar aquí las partes más comunes. Para más información, véase la documentación de 
Internet Client SDK, que se incluye en el CD adjunto. También se puede hacer referencia a 
un libro sobre HTML dinámico A fondo. Dynamic HTML de Scott Isaacs (Microsoft Press, 1998). 
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FUNDAMENTOS DEL MODELO DE OBJETOS 
DE INTERNET EXPLORER 


Primero se ha de estar seguro de sentirse cómodo con el término modelo de objetos. 
Los programadores utilizan este término para describir las distintas partes de un pro- 
grama que se ajustan entre sí, una especie de equivalente a un árbol familiar donde 
se indican relaciones entre los miembros de la familia de un modo jerárquico. En un 
modelo de objetos, los objetos son programables, se pueden establecer sus propie- 
dades, llamar a métodos específicos o escribir procedimientos de eventos para ellos. 


NOTA: Las propiedades describen lo que un objeto es, los métodos permiten que un 
objeto haga cosas, y los eventos son acciones a las que un objeto puede responder. 


Normalmente existe un objeto de jerarquía superior en cualquier modelo de 
objetos. En Internet Explorer, este objeto se denomina objeto window, aunque a 
veces se denomina objeto padre. (Otra forma de comprender un modelo de objetos 
es imaginar que el objeto window contiene todos los demás objetos de Internet 
Explorer.) 

De aquí en adelante, el modelo de objetos se vuelve un poco complicado. La 
Figura 8.1 muestra una representación un tanto simplificada del modelo de objetos 
de Internet Explorer. 


Figura 8,1. Niveles superiores del modelo de objetos de Internet Explorer. 
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Aunque queda mucho más que decir acerca de los elementos que se muestran 
en la Figura 8.1 (e incluso de versiones más sofisticadas de esta jerarquía más 
adelante en este capítulo), se espera que los nombres den una idea de lo que hacen 
los objetos. Por ejemplo, el objeto document es la página Web actual, y el objeto 
location es la URL en donde reside la página. La clave consiste en que todos los 
objetos del modelo de objetos de Internet Explorer son como controles ActiveX, 
en el sentido de que se pueden cambiar ciertas propiedades para adaptar su com- 
portamiento y pueden tener eventos personalizados en los que se puede escribir 
procedimientos de eventos. 


SUGERENCIA: Script Wizard de ActiveX Control Pad puede servir de ayuda inestimable 
para comprender los fundamentos del modelo de objetos de Internet Explorer. Como se vio 
en el Capítulo 2, si se hace clic sobre el signo más junto al objeto window, se pueden ver 
las propiedades y eventos de muchos de los objetos de Internet Explorer. 


OBJETO WINDOW 


Como se vio en el Capítulo 2, los dos eventos más comunes a los que puede res- 
ponder un objeto window son onLoad y onUnload. Hay siete elementos más, cua- 
tro de los cuales se describen en la siguiente tabla: 


Evento Cuándo se dispara 

onBlur La ventana deja de estar activa. (El usuario se mueve a otra ventana del 
escritorio.) 

onFocus La ventana se vuelve activa, (El usuario se mueve a la ventana de 
Internet Explorer y su barra de títulos se resalta.) 

onHelp El usuario pulsa la tecla Fl para acceder a la Ayuda interactiva. 

onError Se produce un error cuando se carga un documento. 


Por ejemplo, se podría tener un script que incluyera lo siguiente: 


Sub window, onFocus 
MsgBox ("Gracias por venir a esta página.") 
End Sub 


Cada vez que el usuario haga activa la ventana de Internet Explorer, verá el 
cuadro de mensaje. 

Uno de los subobjetos del objeto window es el objeto screen. Las dos propie- 
dades más útiles de este objeto son las propiedades height y width porque indican 
las dimensiones de la pantalla del usuario en pixels. (Existe también una propie- 
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dad denominada colorDepth que indica cuántos colores están disponibles en la 
pantalla del usuario.) 


NOTA: La propiedad colorDepth proporciona el número de bits necesarios para describir 
los colores. El número actual de colores es 2 elevado al número de bits. Por ejemplo, si 
colorDepth es 4, el número de colores es 2“ o 16. 


Toda esta información puede ser muy útil en una página Web diseñada profe- 
sionalmente. Permite diseñar diferentes páginas Web dependiendo de si el usuario 
tiene, por ejemplo, una resolución de 640x480 o de 1024x768. Por ejemplo, ¿por 
qué gastar el tiempo enviando un gráfico diseñado para una máquina con una reso- 
lución de 1024x768 con 16 millones de colores, si el usuario tiene una simple 
pantalla de 640x480 con 16 colores? Se debe enviar en su lugar una imagen más 
simple. Seguro que lo agradecerá. 

Para hacer esto, se necesitará cierta información antes de que se cargue el do- 
cumento, por lo que se deberia escribir código como el siguiente: 


<SCRIPT LANGUAGE="VBSCRIPT"> 

<l-- 

option Explicit 

Dim AltoDePantalla, AnchoDePantalla, ColoresDePantalla 


AltoDePantalla = window.screen.height 
AnchoDePantalla = window.screen.width 
ColoresDePantalla = 2 ^ window.screen.colorDepth 


</SCRIPT> 


Obsérvese que se utilizan puntos (.) para bajar en la jerarquía de objetos. Eventual- 
mente, se llega a la propiedad de un objeto. Las expresiones en el código anterior quie- 
ren decir: «Empieza por el objeto window, muévete a su subobjeto screen, y final- 
mente recupera el valor de la propiedad height, width o colorDepth del subobjeto». 


Algunos métodos básicos del objeto window 


Hay seis métodos en el objeto window. La siguiente tabla describe los más 
importantes: 


Método Descripción 


open Abre una nueva ventana de visualización completa. 


close Cierra la ventana de visualización actual. 
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Método Descripción 

navigate Va a otra página. 

setInterval Permite especificar un procedimiento que se quiere ejecutar 
periódicamente mientras se muestra la página actual. 

setTimeout Permite especificar un procedimiento que se quiere ejecutar, empezando 
un cierto número de milisegundos después de cargar la página. 

clearlnterval Cancela el método setInterval. 

clearTimeout Cancela el mensaje setTimeout. 


Utilizando estos métodos, se pueden hacer las páginas Web mucho más útiles, 
mucho más dinámicas y mucho más molestas, 


Método open 


Por ejemplo, la capacidad de mostrar una nueva ventana de visualización es en 
ocasiones muy útil, pero no hay que abusar. Tener demasiadas ventanas de visua- 
lización abiertas al mismo tiempo puede resultar muy desagradable en la mayoría 
de las pantallas. (Y puede que a la gente no le guste que se muestren imágenes que 
no están bajo su control.) Por ejemplo, el siguiente programa abre otra ventana de 
visualización con la página principal de Yahoo: 


Sub window_onLoad 
window.open "http://www.yahoo.com*, "Yahoo", *top=0, left=0* 
End Sub 


Obsérvese que se ha tenido que utilizar la forma completa de una dirección 
Web con el elemento «http://» que los visualizadores modernos como Internet 
Explorer han hecho opcional. 

En cualquier caso, como ya se ha mencionado, a la gente no le gusta una 
página Web que toma control sobre su visualizador sin darles la oportunidad 
de introducir datos. La siguiente versión del script anterior es mucho menos in- 
trusivo: 


Sub window_onLoad 
Dim YesNo 


YesNo = MsgBox("¿Puedo abrir una ventana de visualización para _ 
buscar?", vbYesNo) 
If YesNo = vbYes Then 
window.open "http: //www.yahoo,com", "Yahoo", *top=0, left=0* 
End if 


End Sub 
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Como puede verse al ejecutar cualquiera de los dos programas anteriores, el 
último parámetro controla cómo aparece la nueva ventana cuando se abre. Se pue- 
den añadir otros elementos para un mayor control. Por ejemplo, el siguiente códi- 
go, abre la nueva ventana en la esquina superior izquierda pero también lo hace 
con un tamaño de 100 pixels de alto por 100 pixels de ancho. 


window.open "http://www.yahoo.com", “Yahoo”, 
“top=0, left=0, height=100, width=100" 


Método navigate 


El método navigate permite especificar una nueva página para que la muestre el 
visualizador. Por ejemplo, se puede usar el método navigate en una página Web 
principal personalizada que exista simplemente para preguntar quién es el usuario 
e ir a una de entre varias páginas Web especificas basándose en esta información. 
He aquí un ejemplo de cómo hacer esto: 


Sub window_onLoad 
Dim SuNombre 


SuNombre = InputBox("Cuál es su nombre?*) 


If SuNombre = "Gary Cornell" Then 

window.navigate "http://www.microsoft.com/vbscript" 
ElseIf SuNombre = "Bill Clinton* Then 
window.navigate “http: //www.whitehouse.gov" 

Else 

window.navigate "http: //www.microsoft.com" 

End-If 


End Sub 


i yampöriadorės 


Algunos de los métodos más importantes del objeto window están relacionados 
con la ejecución periódica de código. Por ejemplo, supóngase que sólo se le quiere 
conceder a alguien cierta cantidad de tiempo para leer una página porque esta pá- 
gina forma parte de un examen o tutorial basado en HTML. Para hacer esto, se ha 
de usar el método setTimeout, que necesita dos parámetros: 


Window.setTimeout (NombreProcedimientoALlamar, TrasEstosMilisegundos 


Una línea como la siguiente le indica a Internet Explorer que invoque a un 
procedimiento denominado Adios después de que haya transcurrido un minuto 
(60.000 milisegundos = 60 segundos = 1 minuto): 


window.setTimeout ("Adios", 60000) 
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El siguiente programa da sólo un minuto para mirar la página inicial antes de ir 
a la página principal de Microsoft: 


Sub window_onLoad 
window.setTimeout "Adios", 60000 
End Sub 


Sub Adios 
window,navigate "htt 
End Sub 


'www.microsoft.com" 


Si el procedimiento al que se llama necesita parámetros, se han de especificar 
los parámetros en la llamada al método setTimeout. He aquí algunos ejemplos de 
la sintaxis requerida. Supóngase que se escribe lo siguiente: 


Option Explicit 
Dim Gary 
Gary = "Gary" 


Sub window_onLoad 
window.setTimeout "Adios Gary", 60000 
End Sub 


Si Adios tiene este aspecto, se verá un cuadro de mensaje con el nombre Gary 
antes de que se abandone la página: 


Sub Adios (Quien) 

MsgBox "Adios." á Quien 

window.navigate "http: //wwWww.microsoft.com" 
End Sub 


Si el procedimiento al que se llama cuando vence el temporizador es una fun- 
ción, se ha de estar seguro de usar paréntesis dentro de las comillas para pasar los 
parámetros: 


window.setTimeout “FuncionAdios (Gary)", 60000 


Por otro lado, el método setInterval se utiliza cuando se quiere que Internet 
Explorer despierte a una rutina periódicamente, cuando haya vencido el intervalo 
especificado. El funcionamiento consiste en que cuando Internet Explorer procese 
una línea como ésta, ejecutará el procedimiento Despertar cada 10 segundos: 


Window.setInterval "Despertar", 10000 


Finalmente, si se piensa que el script va a necesitar cancelar una operación de 
temporización que ha comenzado, se debería usar una sintaxis ligeramente distinta 
para estos métodos. Se ha de asignar el resultado del método setTimeout o setln- 
terval a una variable. Por ejemplo: 
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MiTemporizador = window.setTimeout "FuncionAdios (Gary)", 10000 
MiTemporizadorDelIntervalos = window.setInterval "Despertar", 10000 


Ahora se puede usar cualquiera de las siguientes operaciones: 


window.clearTimeout MiTemporizador 
window.clearInterval MiTemporizadorDeIntervalos 


Esto indica a Internet Explorer que no siga teniendo en cuenta dicho tempori- 
zador particular. 


Para terminar con el objeto window 


Como se vio en la Figura 8.1, existen algunos objetos adicionales contenidos en el 
objeto window. Se verá el objeto document en detalle en el siguiente apartado. En 
este apartado se van a explicar los motivos para trabajar con los objetos history y 
navigator. 


Objeto history 


Este objeto permite acceder a la lista Historial que mantiene Internet Explorer, 
Esta lista Historial puede verse haciendo clic sobre el botón Historial en la barra 
de herramientas de Internet Explorer. (Haciendo clic de nuevo sobre el botón se 
esconde la lista Historial.) 

El objeto history tiene una propiedad, lengrh, que indica cuántos elementos 
hay almacenados en la lista, y tres métodos, que se describen en la siguiente tabla: 


Método Qué hace 

back 

forward Historial. 

go Va a una URL particular en la lista Historial. Se especifica uno de dos 


posibles elementos entre paréntesis a continuación de la palabra clave go: 
una cadena que contenga la URL actual o la posición relativa de la URL 
en la lista Historial. (Posición relativa significa que la página actual tiene 
la posición O, la página anterior la posición —1, la pantalla siguiente la 
posición 1, etc.) 


Supóngase, por ejemplo, que se quiere que la página Web permita que un usuario 
que ha accedido a la página Web por error vuelva al enlace anterior. Se puede 
utilizar el siguiente código: 


Sub window_onLoad 
Dim YesNo 
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YesNo = MsgBox("¿Está aquí por error?", vbYesNo) 
If YesNo = vbYes Then 

window.history .back 

End If 

End Sub 


SUGERENCIA: Internet Explorer supone que se hace referencia al objeto window incluso 
si no se especifica de forma ETA, En el ejemplo anterior, se puede escribir history.back 
en vez de window.history.back. 


É Objeto navigator 


Este objeto indica qué versión de Internet Explorer está usando el visitante de la 
página Web. La versión 4 de Internet Explorer tiene muchas características adicio- 
nales comparado con la versión 3, por lo que se puede querer mantener (durante 
un tiempo) dos páginas separadas: una para usuarios de la versión 3 y otra para los 
de la versión 4. La propiedad clave del objeto navigator es appVersion, que con- 
tiene la siguiente cadena (para la versión 4 de Internet Explorer en Microsoft Win- 
dows 95): 


4.0 (compatible; MSIE 4.0; Windows 95) 


Naturalmente, hubiera sido interesante si la propiedad appVersion hubiera con- 
tenido un simple número que se pudiera comprobar con una sentencia If-Then- 
Else, pero no es así; se ha de usar Instr, como se muestra en el siguiente código: 


Sub window_onLoad 


If Instr(window.navigator.appVersion,"4") Then 
MsgBox("Gracias por tener lo último y mejor.”) 
Else 
MsgBox("Desea tener Internet Explorer versión 4?") 

End If 


End Sub 


La propiedad appName, por otro lado, contiene sólo la cadena «Microsoft In- 
ternet Explorer», por lo que es menos útil. La propiedad final que se utilizará mu- 
cho con el objeto navigator es la propiedad cookieEnabled; esto se tratará en el 
apartado sobre cookies en la página 236. 


OBJETO DOCUMENT 


El objeto document representa la página Web actual. Tiene varias propiedades con 
las que se trabajará con frecuencia. Lo que es más importante, contiene otros obje- 
tos. Por ejemplo, contiene todos los enlaces de la página Web. Como se verá pron- 
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to, resulta muy conveniente ya que permite utilizar VBScript para trabajar con 
todos los enlaces de una pagina Web dada. 


Métodos y propiedades de document 


Ya se ha visto el método fundamental para trabajar con un documento, el método 
write que permite mostrar texto en la página Web actual. Existe también un méto- 
do open que funciona como el método open de una ventana. Las propiedades más 
frecuentemente utilizadas se muestran en la siguiente tabla: 


Propiedad Descripción 

bgColor Color de fondo de la página. 

fgColor Color por defecto del texto. 

linkColor Color para enlaces todavia no visitados. 

alinkColor Color para un enlace activo. (El ratón se encuentra sobre el enlace.) 
vlinkColor Color de los enlaces ya visitados. 

title Título de la página. 

location URL de la página. 

cookie Cookie almacenada sobre la página. 

lastModified Fecha de última modificación del documento. 


La propiedad lastModified es útil pero contiene una cadena, por lo que hay que 
usar la función CDate para convertirla a fecha, como en el siguiente ejemplo: 


If CDate(document.lastModified) > $1/1/98+ Then 
MsgBox "Nueva página" 

Else 

MsgBox "Antigua página" 

End If 


Muchas de las propiedades de Document están relacionadas con el color. Hay 
dos opciones para especificar el color. La primera es usar los colores incorporados 
que proporciona HTML, tal como «red» o «blue» (incluyento las comillas). Hay 
16 colores posibles: aqua, black, blue, fuchsia, gray, green, lime, maroon, navy, 
olive, purple, red, silver, teal, white y yellow. 

Sin embargo, hay muchas máquinas cuyas pantallas permiten millones de co- 
lores. Para aprovechar esta ventaja, se debe usar una codificación hexadecimal 
para especificar los colores. (No importa que la máquina del usuario no tenga mi- 
llones de colores disponibles, Internet Explorer hará todo lo posible para ajustar 
los colores requeridos a los colores disponibles por el usuario.) 
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á 


Cuando se utilizan números hexadecimales para especificar los colores, se uti- 
lizan dos dígitos hexadecimales para cada color de forma que se dispone de gamas 
de rojo, verde y azul que van de 0 a 255. 


NOTA: ¿Por qué 255? Bien, 255 (FF en hexadecimal) es lo máximo que puede obtener- 
se con dos dígitos hexadecimales. Significa «15 veces dieciséis y 15 veces uno» o 255 en 
decimal. 


Los colores se describen especificando «RRGGBB»; donde la intensidad del 
rojo, verde y azul se especifican cada uno mediante dos dígitos hexadecimales 
como se muestra en la tabla siguiente. 


Codificación de color Resultado 
document.bgColor = «FF0000» Máximo rojo 
document.bgColor = «00FF00» Máximo verde 
document.bgColor = «0000FF» Máximo azul 


Supóngase que se quiere un color que es una mezcla a partes iguales de todos 
los colores con brillo medio. Ya que O es el mínimo y 255 el máximo, se necesita 
123 para cada componente rojo, verde y azul. Al convertir 123 a hexadecimal se 
obtiene 7B. (¿Por qué? Porque 7B en hexadecimal significa «7 veces dieciséis y 
11 veces uno».) Por tanto, para obtener una mezcla por igual de todos los colores, 
se usa lo siguiente: 


document .bgColor = "7B7B7B" 
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En el modelo de 
objetos de Internet 
Explorer, los 
elementos con 

una "s" al final 

son, normalmente, 
colecciones. 


Objetos dentro del objeto document 


Antes de avanzar más, se va a explicar un nuevo término que se encontrará a me- 
nudo cuando se entre en más detalle en el modelo de objetos de Internet Explorer, 
colección. Como sugiere su nombre, una colección es simplemente un grupo de 
objetos relacionados. Como puede verse en la Figura 8.1, el objeto document tiene 
la colección links, que contiene todos los enlaces de una página de forma que se 
puedan acceder rápidamente. 

La siguiente tabla describe brevemente las colecciones más significativas del 
objeto document. 


Objeto Descripción 

All Todos los elementos y etiquetas HTML de la página (a menudo demasiado 
grande para trabajar eficientemente). 

Anchors Todas las anclas del documento. 

Frames Todos los marcos del documento. 

Forms Los formularios HTML de la página. 

Images Todas las imágenes de la página. 

Links Todos los enlaces de la página. 


A un elemento de una colección se accede de la misma de forma que a un 
elemento de un array. Por ejemplo, al primer enlace en la colección de enlaces se 
accede así: 


document . links (0) 


La otra propiedad que se necesita es la propiedad length, que indica cuántos 
elementos hay en una colección. Por ejemplo, el siguiente bucle For-Next permite 
obtener cada enlace de la página actual: 


For I = 0 To links.length - 1 
'El código para trabajar con el enlace (1) va aquí 
Next 


A Primer paso para usar la colección links 


Como primer paso para ver la potencia de la colección de enlaces, se va a mostrar 
cómo escribir un script que haga uso de la característica «imagen sobre imagen» 
en una página Web. El resultado es una ventana de visualización situada en la 
parte superior izquierda de la pantalla que muestra sucesivamente cada enlace de 
la página. 
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Se empieza mostrando la pequeña ventana que contiene el primer enlace de la 
página actual. Parte del código es el siguiente: 


window.open (document .links(0), _ 
"NombreDeNuevaVentana*, "top=0, left=0, height=175, width=275") 


Ahora, ¿cómo se puede trabajar con la ventana que se acaba de crear? Por 
ejemplo, ¿cómo se puede cambiar o cerrar? La respuesta es mediante la utilización 
de la palabra clave Set. Set permite mantener una referencia a cualquier objeto 
VBScript. Por ejemplo: 


Set VentanaEnVentana = window.open(document.links(0), _ 
"NombreDeNuevaVentana", "top=0, left=0, height=175, width=275") 


Después se puede utilizar la variable denominada VentanaEnVentana para ha- 
cer referencia al objeto a la derecha del signo de igualdad. (La razón de la presen- 
cia de la palabra clave Set es que VBScript necesita distinguir entre hacer una 
asignación ordinaria y crear una referencia a un objeto.) 

Una vez que se ha utilizado la palabra clave Set para crear una referencia a un 
objeto, se puede crear cualquier propiedad o aplicar cualquier método disponible a 
dicho objeto. Simplemente hay que poner a continuación de la referencia un punto 
y el nombre de la propiedad o método que se desee. Por ejemplo, la siguiente línea 
cierra la ventana creada por el código anterior: 


VentanaEnVentana.close 


Se tendrá que cerrar la ventana en el programa de ejemplo de forma que la 
imagen sobre imagen se cierre cuando se elimine la página Web original. El pro- 
cedimiento window_onUnload sería el siguiente: 


Sub window_onUnload 
VentanaEnVentana.close 
End Sub 


He aquí un ejemplo de procedimiento que se puede llamar desde window.set- 
Interval: 


Sub MostrarVentanaEnVentana 


QueEnlace = QueEnlace + 1 ' es una variable a nivel de script 

QueEnlace = QueEnlace Mod document.links.length 

Set VentanaEnVentana = window.open (document . 
" NombreNuevaVentana ", "top=0, Left=0, he 


ks (QueEnlace), _ 
ht=175, width=275") 


End Sub 


El operador Mod permite hacer un ciclo a través de una serie de números espe- 
cíficos. Usando Mod 5, por ejemplo, se obtiene: 0, 1, 2, 3, 4,0, 1... 
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He aquí el código fuente completo (disponible en el archivo Enlaces.htm en el 


CD adjunto) para una página Web que recorre de forma cíclica los tres enlaces de 
dicha página: 


<HTML> 
<HEAD> 


<TITLE>Demo de ventana en ventana</TITLE> 
<SCRIPT LANGUAGE="VBScript"> 


<i- 
Option Explicit 


'Variables a nivel de script para controlar la ventana 
'desplegada y el enlace actual 
Dim VentanaEnVentana, QueEnlace 


Sub window_onLoad 
Dim Muestralo 


Set VentanaEnVentana window.open (document .links (0), _ 
"NombreNuevaVentana", “top=0, left=0, height=175, width=275*) 


Muestralo = window.setInterval("MostrarventanaEnVentana", 5000) 
End Sub 


Sub window_onUnLoad 
'utiliza la referencia de la ventana desplegada para cerrarla 
VentanaEnVentana.close 

End Sub 


Sub MostrarVentanaEnVentana 
QueEnlace = QueEnlace + 1 'QueEnlace es una variable al nivel 
de script 
QueEnlace = QueEnlace Mod document .links.length 
Set VentanaEnVentana = window.open (document . links (QueEnlace), _ 
"NombreNuevaVentana”, "Top=0, left=0, height=175, width=275") 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 


<P> 


<A HREF="http://www.microsoft.com"> 
www.microsoft .com 
</A> 


</P> 


<P> 


<A HREF="http://www.microsoft.com/ie"> 
www.microsoft.com/ie 
</A> 


</B> 
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<P> 
<A HREF="http://ww.microsoft.com/vbscript*> 
www.microso£ft.com/vbscript 
</A> 
</P> 


</BODY> 
</HTML> 


For Each 


Conforme se avance escribiendo scripts, se empleará mucho tiempo manipulando 
las colecciones incorporadas en Internet Explorer. Una de las operaciones más 
comunes que se realizarán será la iteración a través de diversas colecciones. Por 
ejemplo, resulta bastante pesado escribir el siguiente código: 


For I = 0 To nombreColeccion.length 
“hacer lo que sea necesario con nombreColeccion(1). 
Next 


NOTA: Sise olvida que los elementos de una colección se enumeran comenzando por 0 
y se escribe el siguiente código, el programa fracasará: 


For I = 1 To nombreColeccion.length 
'hacer lo que sea necesario con nombreColeccion(1). 
Next 


Debido a esto, VBScript ofrece un método abreviado para iterar a través de 
todos los elementos de una colección. Para usarlo, se ha de declarar una variable y 
escribir el siguiente código: 


Dim Cosa 


For Each Cosa In nombreColeccion 
"hacer lo que se desee con Cosa. 
Next 


Por ejemplo, el siguiente código muestra un cuadro de mensaje para cada enla- 
ce de la página: 


Dim Enlace 


For Each Enlace In document .links 
MsgBox Enlace 
Next 


Eso es mucho más claro que usar este código: 


For I = 0 To document.links.length - 1 
MsgBox document .links (1) 
Next 
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MARCOS 


Los marcos son una de las características de diseño más potentes que pueden aña- 
dirse a una página Web. Tener 10 marcos haciendo cosas diferentes en una página 
Web seguramente distraería a los lectores. Los siguientes apartados enseñan las 
técnicas de manipulación de marcos por medio de VBScript y luego muestran una 
versión mucho más sofisticada del programa de imagen sobre imagen, un progra- 
ma con una tabla de contenidos que muestra tres marcos, como se muestra en la 
Figura 8.2. La idea es que conforme se pase el ratón sobre un enlace del marco 
izquierdo, se vea la página en el marco derecuo. 


Revisión rápida de los marcos 


Los marcos se definen entre un par de etiquetas. En este caso, son las etiquetas 
<FRAMESET></FRAMESET>. (Este par reemplaza al par de etiquetas <BODY> 
</BODY>). Por ejemplo, el siguiente texto establece dos columnas, la izquierda 
siempre ocupará el 40 por 100 del ancho del visualizador, y la derecha siempre 
ocupará el 60 por 100: 


<FRAMESET COLS="40%, 60%"> 
<FRAME SRC="Izquierda.htm"> 
<FRAME SRC="Derecha.htm"> 
</FRAMESET> 


Este ejemplo muestra como trabajar con 
marcos. 


Figura 8.2. Un uso sofisticado de los marcos. 


MODELO DE OBJETOS DE INTERNET EXPLORER 221 


HTML permite usar un asterisco para indicar el resto. Por ejemplo, en lugar de 
la primera línea del código anterior, se puede usar la siguiente línea: 


<FRAMESET COLS="40%, *"> 


NOTA: ES posible usar pixels para especificar el ancho de un marco, pero no es buena 
idea a menos que se conozca el tamaño de la ventana. 


Se debe asignar a cada marco un nombre. Esto ayudará cuando se escriba códi- 
go que utilice los marcos. Por ejemplo: 


<FRAMESET COLS="40%, 60%"> 
<FRAME SRC="Izquierdo.htm" NAME="Marcolzq"> 
<FRAME SRC="Derecho.htm" NAME="MarcoDer*"> 
</FRAMESET> 


Obsérvese que cada marco obtiene su propio documento. Esto es por lo que se 
muestra en la Figura 8.3 una aproximación más detallada del modelo de objetos de 
Internet Explorer. 

Se pueden anidar marcos. Esto permite tanto marcos de fila como marcos de 
columna, marcos de fila dentro de marcos de columna, etc. Por ejemplo, nuestro 
programa de tabla de contenidos consta de tres marcos: 


æ Un marco de fila que contiene texto que explica el ejemplo. 
m Un marco de columna izquierda que muestra todos los enlaces de la página. 


m Una ancha columna derecha para visualizar el documento seleccionado al 
mover el puntero del ratón sobre uno de los enlaces del marco de columna 
izquierdo. 


El HTML para estos tres marcos se muestra a continuación, 


<FRAMESET ROWS="25%, **> 
<FRAME NAME="MarcoSuperior*> 


<FRAMESET COLS="25%, **> 


<FRAMESET ROWS="70%, **> 
<FRAME NAME="IzqParaEnlaces"> 
<FRAME NAME="IzgParaPicenPic"> 
</FRAMESET> 


</FRAMESET>="DerParaDoc"> 
</FRAMESET> 
</FRAMESET> 
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document 
(en primer marco) 


document 
(en segundo marco) 


Figura 8.3. Versión más completa del modelo de objetos de Internet Explorer. 


Programación con marcos 


Programar con marcos no es muy diferente a programar con cualquier otro objeto 
de Internet Explorer. Como se ha mencionado antes, se debe asignar a cada marco 
un nombre cuando se define. De esa forma se puede acceder al objeto de docu- 
mento de un marco de la siguiente forma: 


frames .NombreMarco.document 
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SUGERENCIA: La palabra clave Set puede hacer que el código que utilice marcos (o cual- 
quier otro objeto de Internet Explorer) sea mucho más claro. Una vez que se escribe la 
siguiente línea, se puede usar la variable Doclzq en el código en lugar de la más larga 
Frames.Marcolzq.Document. 


Set Doclzq = frames.Marcolzq.document 


iN Temas de seguridad en la programación de marcos 


Antes de ofrecer un ejemplo de programación utilizando marcos, hay que hacer 
una confesión. Originariamente, se intentó escribir una versión del programa de 
imagen sobre imagen que funcionara automáticamente. Se pretendía que el pro- 
grama descubriera los enlaces de una ventana y mostrara las páginas Web asocia- 
das en otra ventana. Bien, se descubrió que el nuevo y más estricto sistema de 
seguridad de la versión 4 de Internet Explorer no lo permite, un documento de un 
marco no puede utilizar información contenida en el documento de otro marco. 

La idea es que un script no deberia poder «recolectar» información de un nodo 
seguro únicamente porque se esté mostrando en un marco del visualizador. Sin 
entrar en todos los detalles del intento fallido, se quieren mostrar las líneas claves 
que originaron un mensaje de error «Acceso denegado». (Véase la Figura 8.4.) 

Se tenían dos marcos denominados, de forma natural, DerParaDoc e IzqPa- 
raEnlaces. 

He aqui la sentencia que provoca el error: 


frames.DerParaDoc.document .Location.href = _ 
frames. IzqParaEnlaces.document.links (QueEnlace) 


Como puede verse, el problema es que se estaba tratando de acceder a infor- 
mación del marco IzqParaEnlaces para ser usada en el marco DerParaDoc. Esto 
está prohibido por la estricta seguridad que impone Internet Explorer. 


Figura 8.4. Mensaje de error de acceso denegado. 
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5 Ejemplo de una tabla de contenidos 


Aunque no se puede hacer que ocurra automáticamente, ciertamente se puede pro- 
gramar una página Web para que al hacer clic sobre un enlace de un marco de 
tabla de contenidos se muestre un nuevo documento en un marco separado. Esto 
no está prohibido por el modelo de seguridad ya que no se está intentando recopi- 
lar información del documento en el marco separado, sino simplemente usando 
información ya disponible en el marco de tabla de contenidos. 

Hay dos formas de hacer esto: 


m Una forma que utiliza el atributo TARGET de la etiqueta de ancla e implica 
sólo HTML. 


m Una forma que utiliza VBScript para detectar cuándo una persona ha hecho 
clic sobre un enlace. 


Sin embargo, VBScript puede hacer mucho más de lo que puede hacer el atri- 
buto TARGET, puede incluso detectar si el usuario simplemente pasa el puntero 
del ratón sobre un enlace. Por tanto, cabe imaginar por un momento que en un 
futuro no muy lejano, las conexiones de Internet serán tan rápidas que obtener una 
página Web será prácticamente instantáneo. Añadir una característica de previsua- 
lización a una página Web que se activara cuando el usuario pasara el ratón sobre 
un enlace sería entonces algo muy interesante. En el próximo ejemplo, se mostrará 
cómo escribir un programa VBScript que previsualice una página en el marco de- 
recho cada vez que un usuario pase el puntero del ratón sobre un enlace del marco 
izquierdo, 

La clave para escribir esto es recordar que cualquier ancla puede responder a 
tres eventos: el evento onClick (igual que el evento Click que ya se conoce); el 
evento onMousedown, que se dispara cuando el usuario pulsa el botón del ratón 
pero no lo libera; y onMouseover, que se dispara cuando el usuario pasa el ratón 
sobre un enlace. Será con este último evento con el que se jugará. 


SUGERENCIA: Se puede cambiar la barra de estado de la ventana para dar una pista al 
usuario a cerca del enlace. Basta con tener una línea como ésta en el evento onMouseover 
de dicho enlace: 


window.status = * Texto Descriptivo * 


La mejor forma de asociar un procedimiento de evento a un objeto es asignarle 
un nombre a dicho objeto. Por ejemplo, la siguiente etiqueta permite tres posibles 
procedimientos de evento: 
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Etiqueta Procedimientos de evento 
<A HREF="http://www.microsoft.com" MSLink_onMouseover 
NAME="MSLink"> MSLink_onMousedown 


MSLink_onClick 


El código fuente HTML para la página Web principal del ejemplo (que tam- 
bién se encuentra en el archivo TOC.htm del CD adjunto) es muy sencillo. Confi- 
gura los marcos de la forma correcta y los denomina apropiadamente: 


<HTML> 
<HEAD> 


<TITLE>Ejemplo de tabla de contenidos</TITLE> 
<SCRIPT LANGUAGE="VBSCRIPT"> 


Sub window_onLoad 
£rames.MarcoSuperior.document .write _ 
*<Hl>Este ejemplo muestra cómo trabajar con marcos.</H1>" 


MsgBox "Mueva el puntero del raton sobre un enlace del marco 
izquierdo * 
£ "para ver el do 

End Sub 


¿mento de dicho enlace en el marco derecho," 


> 


</SCRIPT> 
</HEAD> 


<FRAMESET ROWS="35%, *"> 
<FRAME NAM 


"MarcoSuperior*> 


<FRAMESET COLS="35%, *"> 
<FRAME NAME="IzqEnlaces" SRC="TOC_SRC.htm*"> 
<FRAME NAME="DerDocumento"> 

</FRAMESET> 


</FRAMESET> 


</HTML> 


El verdadero trabajo se realiza en el archivo denominado TOC_SRC.htm (que 
también se incluye en el CD adjunto). Este archivo contiene los procedimientos de 
evento onMouseover, que envian información al marco derecho de la página Web 
principal. Para que esto funcione, se necesita una forma de hacer referencia al 
objeto de ventana en el que se encuentra el marco. Esto puede hacerse mediante la 
palabra reservada «Parent». Por ejemplo, obsérvese la línea clave del procedimiento 
de evento MSLink_onMouseover: 


parent .frames.DerDocumento.location.href = MSLink.href 
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Esta línea indica a Internet Explorer que encuentre un objeto de ventana que 
contenga al marco actual y entonces busque un marco particular en su colección 
de marcos. He aquí el código HTML completo del archivo TOC_SRC.htm al que 
se hace referencia desde el archivo TOC.htm: 


<HTML> 
<HEAD> 


<SCRIPT LANGUAGE="VBSCRIPT*> 


xio 


Sub MSLink_onMouseover 
parent.frames.DerDocumento.location.href = MSLink 
End Sub 


Sub IELink_onMouseover 
parent.frames.DerDocumento.location.href = IELink 
End Sub 


Sub VBScriptLink_onMouseover 
parent . frames .DerDocumento. location.href = VBScriptLink 
End Sub 


--> 
</SCRIPT> 


</HEAD> 
<BODY> 


<P> 
<A HREF="http://www.microsoft.com" NAME="MSLink"> 
www.microsoft.com 
</A> 
</P> 


<P> 


<A HREF="http://www.microsoft.com/ie" NAME="IELink"> 
www.microsoft.com/ie 


http: //www.microsoft.com/vbscript" NAME="VBScriptLink"> 
www.microsoft.com/vbscript 
</A> 
</P> 


</BODY> 
</HTML> 


CONTROLES HTML INTRÍNSECOS 


Hasta este punto, se han utilizado controles ActiveX en los ejemplos, siendo el 
motivo principal que los controles ActiveX proporcionan muchas opciones para 
los componentes de una página Web, por lo que aprender a utilizarlos es muy im- 
portante. Por otro lado, si se quiere escribir páginas Web que sean reutilizables en 


El equivalente 
ActiveX de un 
control de opción 
es un control 
OptionButton, 
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todas las versiones de Internet Explorer en todas las plataformas posibles, no se 
puede asumir que habrá un control ActiveX específico disponible en todas las 
máquinas de los usuarios. (No obstante, los controles de Microsoft Forms 2.0 Ac- 
tiveX siempre están disponibles en máquinas con Windows 95 o Microsoft Win- 
dows NT.) En estas situaciones, se ha de utilizar una aproximación de «mínimo 
denominador común» cuando se creen páginas Web. Esto requiere centrarse en los 
controles HTML intrínsecos que forman parte del modelo de objetos de Internet 
Explorer, a pesar de que el diseño de las páginas Web estará más limitado que si se 
utilizan estos controles en lugar de los controles ActiveX, La mayoria de los con- 
troles HTML intrínsecos funcionan de forma similar a sus correspondientes con- 
troles ActiveX. Por ejemplo, existe un control de botón HTML intrínseco para el 
que se puede escribir un procedimiento de evento Click, de la misma forma que 
puede hacerse para un control ActiveX de botón de comando. 

La siguiente tabla ofrece una breve descripción de los controles HTML intrín- 
secos más importantes. 


Control HTML intrínseco Descripción 


button Equivalente a un control ActiveX de botón de comando. 

text Un área de una línea para entrada de texto de usuario, 

textarea Un área de múltiples líneas para entrada de texto de usuario. 

password Un control de texto que muestra asteriscos en vez de hacer eco 
de los caracteres que introduce el usuario. 

radio Un grupo de controles que muestra múltiples opciones, 
permitiendo que el usuario seleccione una de ellas. 

checkbox Un control que permite que el usuario seleccione una o más 
opciones de un grupo. 

select Se utiliza para una lista de posibilidades (recuerda a un control 
ActiveX de cuadro de lista). 

reset Un botón que permite restaurar a sus valores iniciales los 


controles en un formulario HTML. 


submit Un botón que envía información al servidor cuando el usuario 
hace clic sobre él. 


hidden Se utiliza para almacenar información que se supone que el 
usuario no debe ver. 


NOTA: El control de contraseña (password) tiene ventajas e inconvenientes. Aunque oculta 
la entrada del usuario, no se puede verificar la contraseña en el código VBScript. Esto es así 
porque la mayoría de la gente sabe lo suficiente como para seleccionar Código fuente en el 
menú Ver, y una vez hecho esto, podrían ver cualquier código que verificara la contraseña. 
Si se utiliza un control intrínseco de contraseña, se tendrá que enviar la información al 
servidor para que la verifique allí. 
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Utilización del control HTML intrínseco 


Una ventaja de utilizar un control HTML intrínseco es que no se necesita usar un 
CLSID; en su lugar, simplemente se escribe puro código HTML. 


Control de botón intrínseco 


He aquí un ejemplo de etiqueta HTML para un control de botón intrínseco con un 
mensaje de Haga clic sobre mí: 


<INPUT TYPE=button NAME-Botonl VALUE="Haga clic sobre mí"> 


El atributo VALUE especifica el mensaje, pero el atributo NAME es lo que se 
emplea en el código VBScript. Por ejemplo, el procedimiento de evento onClick 
del botón que se acaba de definir es el siguiente: 


Sub Botonl_onClick 
el código viene aquí 
End Sub 


Obsérvese lo parecido que es a la forma en la que se escribe un procedimiento 
de evento para un control ActiveX de botón de comando. La única diferencia es 
que se utiliza «onClick» en vez de «Click». 


Controles de texto intrínsecos 


Un control de texto intrínseco se sitúa en una página Web de forma muy similar a 
un control de botón intrínseco. El atributo opcional VALUE especifica el valor 
inicial, y el atributo opcional SIZE especifica el ancho del control en caracteres. 
He aquí un ejemplo de etiqueta HTML para un control de texto intrínseco: 


<INPUT TYPE 


=text NAME=Textol VALUE="Texto inicial" SIZE=25> 


Como muchos de los controles HTML intrinsecos, los métodos y eventos de 
un control de texto están relacionados. Por ejemplo, existe un método denominado 
focus que hace activo el control, un método denominado blur que hace que deje de 
estar activo el control, y un método denominado select que selecciona todo el tex- 
to del control. Por ejemplo: 


Textol.focus “activa el control Textol 
Textol.blur "activa el siguiente elemento disponible 
Textol.select  'selecciona todo el texto del control Texto1 


Pero también se pueden escribir procedimientos de eventos onFocus, onBlur y 
onSelect para un control de texto intrínseco que se ejecute cuando el usuario acti- 
ve el control, desactive el control o seleccione el texto del control, respectivamen- 
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te. Por ejemplo, el siguiente código informa del contenido actual del control Textl 
cuando el usuario activa otro elemento: 


Sub Textol_onBlur 
MsgBox "Escribió “ á Textol.value 
End Sub 


Control textarea 


El control multilínea textarea emplea un formato ligeramente distinto en su etique- 
ta HTML. He aquí un ejemplo de lo que hay que utilizar: 


<TEXTAREA NAME=TextAreal ROWS=5 COLS=25></TEXTAREA> 


Esto configura un área de texto con espacio para cinco líneas de 25 caracteres 
cada una. Obsérvese que a diferencia de los dos controles previos, el control texta- 
rea necesita una etiqueta de cierre </TEXTAREA>. El atributo NAME es de nue- 
vo fundamental para la codificación, y se puede optar por incluir un atributo VA- 
LUE idéntico al de un control de texto. El control textarea permite que el usuario 
pulse la tecla Intro (para comenzar una nueva línea) cuando se introduzca texto en 
el control; el contenido del control tendrá entonces una cadena con el equivalente 
a una constante vbCrLf en cada lugar donde se haya pulsado la tecla Intro. Por lo 

y demás, las propiedades, métodos y eventos de un control textarea son iguales a los 
de un control text. 


Casillas de verificación y botones de opción 


Una casilla de verificación requiere que el usuario tome una decisión sí/no para 
una opción individual. Un grupo de botones de opción, por otro lado, requiere que 
el usuario tome una decisión entre un conjunto de opciones. Por ejemplo, imagine- 
se que se quiere crear una página Web para comprar una computadora. Para in- 
cluir o no una unidad Zip se deberá tomar una decisión sí/no, por lo que se tendría 
que utilizar una casilla de verificación. Por otro lado, el tamaño del monitor es una 
decisión que se tendrá que tomar entre un conjunto de opciones. El usuario tendrá 
que elegir entre un monitor de 15 pulgadas, uno de 17, uno de 19, etc. (Esto presu- 
pone que se requiere un monitor como parte del equipo de la computadora.) La 
Figura 8.5 muestra el aspecto de una casilla de verificación y de un grupo de boto- 
nes de opción en una página Web. 


A Casillas de verificación 


El código HTML para un control checkbox intrínseco es un poco mayor que el de 
un control text intrínseco porque se necesita incluir el texto que debe aparecer 
junto a la propia casilla de verificación. Este texto se sitúa a continuación de la 
etiqueta INPUT, como se muestra en este ejemplo: 
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Figura 8.5. Una casilla de verificación y un grupo de botones de opción. 


SINPUT TYPE=checkbox NAME=UnidadZip> 
Unidad Zip<BR> . 


Cada vez que un usuario activa o desactiva la casilla, se dispara el evento on- 
Click. Se utiliza una sentencia If-Then en el procedimiento de evento onClick para 
determinar si una casilla ha sido activada, como se muestra aqui: 


Sub UnidadZip_onclick 


If UnidadZip.checked Then 
NumeroDeDiscos = InputBox("¿Cuántos discos Zip desea?") 
End 1£ 


Ená Sub 


Botones de opción 


Los botones de opción son un poco más complicados que las casillas de verifica- 
ción ya que se ha de determinar cuál de los botones está seleccionado actualmente. 
Antes de mostrar cómo hacerlo, he aquí las etiquetas HTML para un grupo de 
botones de opción que permiten que el usuario seleccione el tamaño de un monitor: 


<INPUT TYPE=radio NAME=TipoMonitor> 
monitor 15 pulgadas <BR> 

<INPUT TYPE=radio NAME=TipoMonitor> 
monitor 17 pulgadas: <BR> 

<INPUT TYPE=radio NAME=TipoMonitor> 
monitor 19 pulgadas <BR> 

<INPUT TYPE=radio NAME=TipoMonitor> 
monitor 21 pulgadas <BR> 
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Obsérvese cómo todos los botones de opción de este ejemplo tienen el mismo 
atributo NAME. Esta es la forma en la que Internet Explorer sabe que deben ser 
tratados como un grupo de botones de opción. (Se pueden tener múltiples grupos 
de botones de opción en una misma página Web.) Normalmente no hace falta pre- 
ocuparse por el evento onClick de un botón de opción; en su lugar se tiene un 
botón de comando separado que verifica qué botón de opción está seleccionado. 
Hay dos cosas a tener en cuenta cuando se escribe el código para este botón de 
comando. Primero, la información sobre el grupo de botones de opción se almace- 
na en un array. Segundo, la propiedad checked es True sólo para el botón de op- 
ción particular seleccionado por el usuario. 

Por ejemplo, he aquí una sección de código que se puede utilizar para analizar 
lo que el usuario ha seleccionado después de confirmar la elección haciendo clic 
sobre un botón denominado SeleccionMonitor: 


Sub SeleccionMonitoronClick 


Tf TipoMonitor(0).checked Then 
MsgBox "¿No cree que un monitor de 15" es demasiado pequeño hoy 
en día?" 
ElseIf TipoMonitor (1).checked Then 
MsgBox "Buena elección, pero un monitor de 19" sería muy 
interesante.” 
ElseIf TipoMonitor(2).checked Then 
MsgBox "¡El monitor de 19* tiene un gran rendimiento!" 
ElseIf TipoMonitor(3).checked: Then 
MsgBox '"Tiene suerte, ¡Ojalá tuviera yo un monitor de 21"! 
Else 
MsgBox “Por favor seleccione un monitor.” 
End Tf 


End Sub 


También se puede asignar un valor para cada botón de opción. Esto permite 
asignar un número o una palabra, como puede verse en el siguiente ejemplo: 


<INPUT TYPE=radio NAME=TipoMonitor VALUE=15> 

Se puede entonces obtener el valor con una expresión como ésta: 
TipoMonitor(0).value 

La otra propiedad que se utiliza mucho es la propiedad length, que indica cuántos 


elementos hay en el grupo de botones de opción. Finalmente, los botones de op- 
ción pueden responder a un evento onClick, aunque no es habitual. 


Control select intrínseco 


El control select es uno de los controles HTML intrínsecos más útiles porque per- 
mite construir una lista de posibilidades conforme se carga el documento. (Me- 
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diante HTML dinámico, es posible cambiar el contenido del cuadro de lista resul- 
tante después de cargarse la página.) El control select, como el control textarea, 
tiene una etiqueta de cierre al igual que una de apertura. Por ejemplo, el código 
HTML para un control select que permita al usuario seleccionar la abreviatura de 
estado del noreste de Estados Unidos podría empezar así: 


<SELECT NAMÉ-EstadosNorEste SIZE=3> 
<OPTION>CT 
<OPTION>NJ 
<OPTION>NY 

</SELECT> 


El atributo SIZE determina cuántos elementos puede ver el usuario al mismo 
tiempo. Si hay más elementos en la lista que los que se especifiquen con este atri- 
buto, Internet Explorer añadirá automáticamente barras de desplazamiento. 

Una vez que se haya mostrado el control select y que el usuario haya interac- 
cionado con éste, habrá dos resultados importantes que se querrán conocer: 


m La posición del elemento seleccionado en la lista. 


w El valor actual del elemento seleccionado por el usuario. 


El primer resultado es el valor de la propiedad selectedindex. El segundo re- 
sultado se puede encontrar indexando el array mantenido en la propiedad options. 
Por ejemplo, supóngase que hay un botón de comando denominado SeleccionarEsta- 
do. He aquí el código que determina qué elemento está actualmente seleccionado 
después de que el usuario hace clic sobre el botón de comando SeleccionarEstado: 


Sub SeleccionarEstado_onClick 
Dim NumElemento, TextoElemento 


NumElemento = EstadosNorEste.selectedindex 
TextoElemento = EstadosNorEste.options(NumElemento).Text 
MsgBox "Ha seleccionado el elemento número * £ NumElemento _ 
& vbCrLf á "El estado seleccionado es " & TextoElemento 
End Sub 


Otra forma de averiguar qué elemento ha sido seleccionado es usar la propie- 
dad selected. Esto es especialmente útil cuando se ha configurado el atributo 
MULTIPLE del control select a True, lo que permite que el usuario pueda selec- 
cionar múltiples elementos. Para hacer selecciones múltiples, el usuario simple- 
mente tiene que hacer clic al tiempo que mantiene pulsada la tecla Ctrl. El código 
tiene entonces el siguiente aspecto: 


If NombreDeControlSeleccionado.Optións (1) selected Then 


Otra posibilidad 
sería usar varias 
casillas de 
verificación, pero 
un control select 
puede ocupar 
mucho menos 
espacio en la 
página al poder 
utilizar barras de 
desplazamiento 


en caso necesario. 
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Como ejemplo de uso, supóngase que se quiere permitir que el usuario selec- 
cione múltiples elementos para pedir un sandwich por medio de la red. He aquí el 
código fuente HTML de este ejemplo, que también se encuentra en el archivo 
Select.htm del CD adjunto: 


<HTML> 
<HEAD> 


<TITLE>Ejemplo de selección múltiple</TITLE> 
<SCRIPT LANGUAGE="VBSCRIPT"> 


Sub SeleccionarExtras_onClick 
Dim I, Elementos 
Elementos = vbCrLf 


For I = 0 To Extras.options.length - 1 
If Extras.options(1).selected Then 
Elementos = Elementos á vbCrLf á Extras.options(1).text 
End I£ 
Next 


MsgBox "Su sandwich tendrá: " á Elementos 
End Sub 


==> 


</SCRIPT> 


</HEAD> 
<BODY> 


<SELECT NAME=Extras SIZE=4 MULTIPLE> 
<OPTION>Queso 
<OPTION>Mayonesa 
<OPTION>Mostaza 
<OPTION>Aceite 
<OPTION>Cebolla 
<OPTION>Pimienta 
<OPTION>Tomate 
<OPTION>Vinagre 
</SELECT> 


<BR><BR><BR> 
<INPUT TYPE=button NAME=SeleccionarExtras VALUE="Haga su pedido"> 


</BODY> 
</HTML> 


FORMULARIOS 


Un formulario HTML es cualquier parte de una página Web que tiene su código 
encerrado entre el par de etiquetas <FORM></FORM>. (Se pueden tener múlti- 
ples formularios en una sola página Web.) Un formulario contiene controles HTML 
intrínsecos y posiblemente controles ActiveX. Se puede especificar qué programa 
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ha de ser ejecutado en el servidor cuando el usuario termine de introducir la infor- 
mación en el formulario, y también se puede especificar cómo enviar dicha infor- 
mación al servidor. Los formularios están estrechamente ligados a la programa- 
ción en el lado del servidor, por lo que aquí se tratará este importante tema sólo 
brevemente. (En particular, no se pueden ejecutar ejemplos de formularios en la 
propia máquina a menos que se disponga de Windows NT ejecutando Internet In- 
formation Server, ya que sería necesario configurar programas en un servidor para 
procesar los datos enviados por el formulario.) 


NOTA: Elcontenido de cualquier control ActiveX debe estar reflejado en un control HTML 
intrínseco oculto para que pueda ser enviado de forma apropiada al servidor cuando el 
usuario finalice el formulario. 


Sin embargo, se puede instruír al servidor para que realice los siguientes pro- 
cesos mediante el par de etiquetas <FORM></FORM>: 


m Empaquetar la información enviada por el usuario, (La información se en- 
vía a menudo como una cadena, que puede estar codificada.) 


m Ejecutar un programa particular, conocido como página de servidor activa, 
en el servidor una vez que se le envía la información. 


NOTA: Un gran libro sobre páginas de servidor activas es Programación de Active Server 
Pages de Scot Hillier y Daniel Mezick (Microsoft Press, 1997). 


Por ejemplo, este código indica al servidor que procese los datos utilizando 
una página de servidor activa denominada ArchivoAsp.asp: 


<FORM NAME=Forml METHOD=POST 
ACTION="http://NombreServidor/CarpetaConArchivosAsp/ArchivoAsp.asp"> 


Tradicionalmente, cuando el usuario hace clic sobre el botón enviar dentro 
de un formulario, toda la información es empaquetada por el visualizador y envia- 
da al servidor para que sea procesada por el programa indicado en el atributo 
ACTION. Esta no es la mejor forma de hacerlo, no ofrece la oportunidad de reali- 
zar una validación en el lado del cliente que es una de las ventajas de utilizar 
VBScript. Por tanto, es mejor escribir un procedimiento de evento onSubmit para 
el formulario con el fin de validar las entradas del usuario. 

Por ejemplo, considérese un formulario que se emplea para verificar una direc- 
ción, como se muestra en la Figura 8.6. Se quiere enviar los datos sólo si todos los 
datos han sido rellenados. 

El truco aquí es escribir el procedimiento de evento onSubmit como una fun- 
ción que devuelva True si se quiere enviar los datos y que devuelva False en caso 
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Introduzca su nombre [ _ 


Introduzca su dirección -| 


|| Introduzca su código postal: 


Figura 8.6. Formulario de dirección. 


contrario. Esto significa que se puede usar código como éste para un formulario 
denominado FormularioDirecciones: 


Function FormularioDirecciones_onSubmit 
Dim DatosErroneos 


BadData = False 


If FormularioDirecciones.SuNombre.value = "" Then DatosErroneos = 
True 
If FormularioDirecciones.SuDireccion.value = "" Then DatosErroneos 
= True 


If. Len(FormularioDirecciones.SuCodigoPostal.value) <> 5 And 
Len(FormularioDirecciones.SuCodigoPostal.value)<> 10 Then 
DatosErroneos = True 


*Decidir si enviar los datos, 
*dependiendo del valor de los DatosErroneos 
If DatosErroneos Then 

MsgBox "Datos erróneos" 


FormularioDirecciones_onSubmit = False 
Else 

MsgBox "Datos correctos" 

FormularioDirecciones_onSubmit = True 
End If 


End Function 


He aquí código HTML para poder probar esto. (Se puede probar el proceso de 
envío sin un servidor que ejecute la petición ACTION.) El código fuente HTML 
completo se encuentra en el archivo Form.htm en el CD adjunto. 
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COOKIES 


<BODY> 


<FORM NAME=FormularioDirecciones> 
Introduzca su nombre: 
<INPUT TYPE=text NAME=SuNombre SIZE=30> 
<BR> 
Introduzca su dirección: 
<TEXTAREA NAME=SuDireccion ROW=2 COL=30></TEXTAREA> 
<BR> 
Introduzca su código postal: 
<INPUT TYPE=text NAME=SuCodigoPostal SIZE=10> 
<BR><BR> 
<INPUT TYPE=submit> 
</FORM> 


</BODY> 


Las cookies son la única forma aceptable de que un nodo Web deje información en 
una computadora, y su uso es bastante controvertido. ¿Qué es una cookie? Es sim- 
plemente un trozo de información, tal como las preferencias de color de un usuario 
para dicho nodo Web o el nombre de usuario y contraseña. Pero lo importante es 
que las cookies se almacenan en el disco duro del usuario. Las cookies son a me- 
nudo muy convenientes; pueden ahorrarle al usuario el problema de volver a escri- 
bir información. Dicho esto, las cookies siguen siendo motivo de controversia por- 
que mucha gente piensa que son intrusivas, ¡y estas personas utilizarán las opciones 
de seguridad de Internet Explorer para impedir que las páginas Web depositen una 
cookie en sus sistemas! 


NOTA: Para ejecutar código VBScript que use cookies, la página Web que contenga el 
código debe ser cargada desde un servidor. Esto significa que se debe tener Microsoft Per- 
sonal Web Server instalado en la máquina, o se deberá cargar la página desde un servidor 
Web separado. 


El uso de cookies en código VBScript es simple. La propiedad cookie del ob- 
jeto document permite crear atributos muy parecidos a los usados en las etiquetas 
HTML, como se muestra en el siguiente ejemplo. 


Sub window_onLoad 
Dim NombreCookie, ContrasenyaCookie, FechaExpiracionCookie 


NombreCookie = "NOMBREUSUARIO=gcornell" 
document.cookie = NombreCookie 


ContrasenyaCookie = "CONTRASEÑA=NOESAsuntoSuyo" 
document.cookie = document.cookie á ";" á ContrasenyaCookie 


FechaExpiracionCookie = “EXPIRA-" & (Ahora + 365) 
document cookie = document.cookie á ";" á FechaExpiracionCookie 


End Sub 
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Cuando un usuario carga una página Web que ejecuta las líneas anteriores y el 
sistema de seguridad lo permite, Internet Explorer crea un nuevo archivo de texto 
en la carpeta WindowsiCookies con esta información. El archivo se denomina 
NombreUsuario(YNodoWeb.txt (donde NombreUsuario es el nombre de usuario y 
NodoWeb es la dirección de la página Web). Por ejemplo, un nombre completo de 
un archivo de cookie podría ser éste: «C:WWindowsiCookiesigary cornell(Qmicro- 
soft.txt». Dentro de un año a partir de ahora, el archivo dejará de estar accesible 
para dicha página Web. 


NOTA: Sise omite la cadena con la fecha de expiración del archivo de cookie, Internet 
Explorer almacenará la información de cookie sólo durante la sesión actual. Esto es útil 
para aplicaciones tales como una sesión de compras en un nodo Web. 


Si se piensa que pudiera haber una cookie en la página Web actual en el siste- 
ma del usuario, se querrá analizar su contenido. (El modelo de seguridad de Inter- 
net Explorer sólo permite que una página Web pueda analizar su propia cookie.) 
Por ejemplo, el código de una página Web podría empezar así: 


Sub window_onLoad 


If document.cookie = *" Then 
HacerCookie 'hacer cookie para un usuario nuevo 
Else 


AnalizarCookie 'ir al procedimiento de analizar cookie 
End If 


'código para cualquier cosa que se quiera hacer en el 
'procedimiento onLoad 


End Sub 


Para comprender el tipo de código que se necesita para analizar una cookie 
existente, se debe comprender cómo almacena su información la cadena docu- 
ment.cookie. Es una cadena como la siguiente, en la que los atributos individuales 
están separados por punto y coma: 


NOMBREUSUARIO=gcornell;CONTRASEÑA=NOEsAsuntoSuyo;... 


Por tanto, se usa la función Split incorporada en VBScript con un punto y coma 
como delimitador con el fin de almacenar los elementos individuales en un array 
para un posterior análisis. El subprocedimiento podría tener la siguiente forma: 


Sub AnalizarCookie 
Dim Partes 
Partes = Split (document .cookie, 
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'Hacer lo que se desee con cada parte. 


End Sub 


El procedimiento HacerCookie funciona como ya se ha visto, excepto que en 
la práctica se debería utilizar la sentencia On Error al principio del procedimiento. 
Esta sentencia es necesaria porque los usuarios pueden haber configurado sus ni- 
veles de seguridad para no permitir colocar ninguna cookie en sus máquinas. 


Capítulo 


Introducción 
a HTML dinámico 


Un elemento es 
cualquier objeto 
programable de un 
documento HTML 


Este capitulo presenta un nuevo y excitante nivel en el desarrollo de páginas 
Web, HTML dinámico. HTML dinámico permite controlar (vía programa- 
ción) fundamentalmente cualquier elemento visible de una página Web, inclu- 
yendo texto e imágenes. Por ejemplo, hasta este punto, no se ha podido cam- 
biar texto visualizado después de que la página haya finalizado de cargarse por- 
que la sentencia Document.Write pone el texto en la página antes de que ésta 
se cargue. HTML dinámico, por otro lado, permite hacer cambios después de 
que la página se haya cargado en la máquina del usuario, Mediante la capacidad 
de la versión 4 de Microsoft Internet Explorer de conservar una imagen de la 
página que puede ser modificada y regenerada, HTML dinámico permite que se 
realicen cambios utilizando la potencia de computación de la máquina del usua- 
rio, en lugar de construir una nueva página en el servidor y enviarla de nuevo por 
la red. 

¿Se desea que un elemento esté siempre exactamente en el centro de la página, 
con independencia del tamaño de la página y de la resolución de la máquina del 
usuario? HTML dinámico también puede hacerlo, y con mayor precisión que lo 
que pudiera esperarse con simples etiquetas <BR> y <C>, 

Finalmente, HTML dinámico permite usar hojas de estilo para describir 
los distintos elementos de una página Web. Mediante la definición de estánda- 
res de texto, tales como el tamaño y fuente estándares para un determinado ni- 
vel de encabezamiento, se pueden realizar cambios globales simplemente cam- 
biando el estilo predefinido. Por ejemplo, se pueden cambiar todas las cabeceras 
<H1> cambiando el estilo <H1>; no ha de hacerse a mano para cada cabece- 
ra <H1>. 
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NOTA: Un uso análogo de los estilos fue una de las razones principales por las que las 
primeras versiones de Microsoft Word eran mucho más potentes que otros procesadores de 
texto de la época. Microsoft Word fue uno de los primeros procesadores de texto en utilizar 
estilos para definir el aspecto de los párrafos. 


Aunque en este capitulo se verá el uso básico de los estilos, no se entrará en las 
hojas de estilos. Para más información en este tema avanzado, se recomienda el 
libro A fondo. Dynamic HTML de Scott Isaacs (Microsoft Press, 1998). 


PROCEDIMIENTOS DE EVENTOS 


En HTML dinámico, 
se utiliza el atributo 
1D en lugar del 
atributo Name. 


En el último capítulo, se escribió un procedimiento de evento onMouseover para 
un enlace de forma que se mostrara un documento en un marco separado cada vez 
que un usuario moviera el puntero del ratón sobre dicho enlace. Esto era posible 
porque la versión 3 de Internet Explorer introdujo el evento onMouseover para un 
enlace. Ahora que la versión 4 de Internet Explorer ha introducido HTML dinámi- 
co, cada objeto visible rodeado de etiquetas disparará un evento onMouseover 
cuando el usuario mueva el puntero del ratón sobre dicho objeto. 


NOTA: Naturalmente, el evento onMouseover no es el único evento. Están onMouseout, 
onClick, onKeypress y muchos más. (Véase el apartado «Eventos» para más información 
sobre la rica colección de eventos que incorpora HTML dinámico.) 


Se puede por tanto escribir código VBScript (como procedimiento de evento) 
para controlar qué ocurre cuando el usuario mueve el puntero del ratón sobre 
cualquier objeto. Por ejemplo, supóngase que se quiere que ocurra una acción 
cada vez que el puntero del ratón pase por encima de una cierta cabecera <H1>. 
Para que esto ocurra, se necesita expandir la etiqueta de nivel de cabecera de 
forma que incluya un nombre al que se pueda hacer referencia en el procedimien- 
to de evento: 


<Hl ID=Test>¡Mueva el puntero del ratón sobre mí!</H1> 


Ahora puede escribirse un procedimiento de evento onMouseover para la ca- 
becera denominada Test, como muestra este ejemplo: 


Sub Test_onMouseover 
MsgBox "¡Bienvenido a HTML Dinámico!" 
Ená Sub 


He aquí el programa completo, que se puede encontrar en el archivo Primero.htm 
del CD adjunto: 
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<HTML> 
<HEAD> 


<TITLE>Primera demostración de HTML Dinámico</Title> 
<SCRIPT LANGUAGE="VBSCRIPT"> 


sin 
Option Explicit 


Sub Test onMouseover 
MsgBox "¡Bienvenido a HTML Dinámico!" 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 


<Hl>Ésta es una sencilla cabecera H1.</H1> 


<BR><BR><BR> 


<H1 ID=Test> 

Ésta es una cabecera Hl dinámica. 

Mueva el cursor sobre mí para ver qué ocurre. 
</H1> 


</BODY> 
</HTML> 


La Figura 9.1 muestra qué ocurre cuando se mueve el puntero del ratón sobre 
la cabecera H1 dinámica de este ejemplo. 


Cómo utilizar la propiedad innerText 


HTML dinámico define para cada elemento una propiedad denominada innerText, 
Esta propiedad contiene el texto rodeado por el par de etiquetas del elemento en 
cuestión. En la demostración anterior, por ejemplo, Test.innerText contiene el tex- 
to «Ésta es una cabecera H1 dinámica. Mueva el ratón sobre mí para ver qué ocurre». 

Lo más interesante de HTML dinámico es que cuando se cambia la propiedad 
innerText de un elemento, el texto de la página cambia automáticamente. No hay 
necesidad de preocuparse de utilizar Document. Write antes de que la página ter- 
mine de cargarse. Por ejemplo, supóngase que se quiere modificar la página Web 
anterior de forma que si un usuario hace clic sobre una cabecera HI dinámica se 
muestre más texto. He aquí el tipo de código que se tendría que añadir: 


Sub Test_onClick 
Test.innerText = Test.innerText _ 
4 " Ha hecho clic sobre mí. No lo vuelva a hacer " _ 
£ "o el texto parecerá bastante tonto." 
End Sub 
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Ésta es una sencilla cabecera H1. 


Ésta es una cabecera H1 dinámica. Mueve el | 
cursor sobre mí para ver qué ocurre. 


ra ll: 


Figura 9.1. Una primera demostración de HTML dinámico. 


Obsérvese que esto coge el texto anterior de la cabecera (el valor anterior de 
Test.innerText) y le concatena la nueva cadena. Esto es por lo que al hacer clic dos 
veces se muestra el texto de la Figura 9.2. 

A continuación se da el código fuente HTML completo, que también puede 
encontrarse en el archivo innerText.htm del CD adjunto. 


Para cambiar este texto, haga clic sobre él. 


| Ha hecho clic sobre mí. No lo vuelva a hacer 
o el texto parecerá bastante tonto. Ha hecho 


clic sobre mí. No lo vuelva a hacer o el texto 
parecerá bastante tonto. 


Figura 9.2. Resultado de no obedecer las instrucciones. 
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<HTML> 
<HEAD> 


<TITLE>Utilización de la propiedad innerText</Title> 
<SCRIPT LANGUAGE="VBSCRIPT"> 
<!-- 


Option Explicit 


Sub Test_onClick 
Test.innerText = Test.innerText _ 
£ * Ha hecho clic sobre mí. No lo vuelva a hacer * _ 
& "O el texto parecerá bastante tonto." 
End Sub 


cih 


</SCRIPT> 


</HEAD> 
<BODY> 


<Hl ID=Test>Para cambiar este texto, haga clic sobre él.</H1> 


</BODY> 
</HTML> 


Además, existe una propiedad denominada outerText que devuelve la etiqueta 
completa, incluyendo el texto interior. Cambiando esta propiedad, se puede cam- 
biar el nivel de encabezamiento, convertir una cabecera en un párrafo o enlace, 
etcétera. Por ejemplo, el código siguiente convierte la cabecera denominada Test 
en texto plano cuando el usuario hace clic sobre éste: 


Sub Test_onClick 
Test.outerText = "Solía ser una cabecera, pero ya no más." 
End sub 


He aquí el código fuente HTML completo de este ejemplo, que también puede 
encontrarse en el archivo outerTxt.htm del CD adjunto: 


<HTML> 
<HEAD> 


<TITLE>Utilización de-la propiedad outerText</Title> 
<SCRIPT LANGUAGE="VBSCRIPT"> 


<!-- 
Option Explicit 


Sub Test_onClick 
Test.outerText = "Solía ser una cabecera, pero ya no más." 
End Sub 


--> 


</SCRIPT> 


</HEAD> 
<BODY> 
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ESTILOS 


<H1 ID=Test> 
Para cambiar esta cabecera a texto normal, haga clic sobre ella. 
</H1> 


</BODY> 
</HTML> 


El último apartado ha mostrado la potencia que se consigue utilizando simplemente 
dos nuevas propiedades (innerText y outerText) de las muchas propiedades que tie- 
nen los diversos objetos HTML en HTML dinámico. Ahora se va a explicar otra po- 
derosa propiedad disponible en HTML dinámico, la propiedad style. Esta propiedad 
permite cambiar características como fuente, tamaño de fuente, color de texto e inclu- 
so si el objeto es visible. Para configurar el estilo inicial de un objeto (cuando se carga 
la página), se ha de utilizar el atributo STYLE, como se muestra en este ejemplo: 


<P ID=TextoEstilo STYLE="color:red*>Este texto es rojo.</P> 


Para cambiar las características del párrafo StyleText después de que se haya 
cargado la página, se cambia la propiedad de estilo de párrafo mediante una línea 
como ésta: 


TextoEstilo.style.color = "black" 


He aquí el código fuente HTML completo para un ejemplo de esto (que tam- 
bién puede encontrarse en el archivo Style.htm del CD adjunto): 


<HTML> 
<HEAD> 


<TITLE>Ejemplo de estilos</Title> 
<SCRIPT LANGUAGE="VBSCRIPT"> 


Option Explicit 


Sub TextoEstilo_onClick 
TextoEstilo.style.color="black" 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 


<P ID=TextoEstilo STYLE="color:red"> 
Este texto es rojo. Haga clic sobre mí y me volveré negro. 
</P> 


</BODY> 
</HTML> 
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He aquí otro ejemplo. La propiedad display de la propiedad style determina si 
la información es visible. Hay dos valores: 


m «none» (la información está oculta). 


m 6) (la información está visible). 


El siguiente ejemplo (también en el archivo Display.htm del CD adjunto) hace 
un texto visible después de que el usuario haga clic en cualquier parte de la pági- 
na. Esto se hace asignando a la etiqueta <BODY> un ID y luego escribiendo un 
procedimiento de evento onClick para el cuerpo: 


<HTML> 
<HEAD> 


<TITLE>Ejemplo de la propiedad display</Title> 
<SCRIPT LANGUAGE="VBSCRIPT*> 


el 
option Explicit 


Sub Cuerpo_onClick 
TextoEstilo.style.display = 
End Sub 


-=> 


</SCRIPT> 


</HEAD> 
<BODY ID=Cuerpo> 


<Hl>Haga clic en cualquier parte de la página para ver un texto 
oculto.</Hl> 


<P ID=TextoEstilo STYLE="display:none*>Éste es el texto secreto. 
</P> 


</BODY> 
</HTML> 


Una de las aplicaciones más útiles de esta característica de HTML dinámico es 
hacer que se muestre texto oculto cuando el usuario mueva el puntero del ratón 
sobre un lugar particular de la página Web. La clave para esto, como ya puede 
haberse imaginado, consiste en cambiar la propiedad display del texto oculto me- 
diante el procedimiento de evento onMouseover del objeto de dicho lugar particular. 


Algunos estilos comunes 


Se espera haber convencido de los beneficios que puede aportar el cambio de esti- 
lo, y de que el código necesario no resulta dificil de escribir. ¡El problema princi- 
pal de los estilos es que hay demasiadas opciones! Para ser honestos, no se pueden 
estudiar todos en este capítulo, aunque se van a tratar los más comunes. 
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Nota: Se ha de tener presente que los estilos se pueden combinar en una hoja de estilos. 
Se pueden entonces cambiar estilos para toda la página Web de una vez. Véase el libro A 
fondo. Dynamic HTML mencionado antes para más información sobre hojas de estilos. 


He aquí breves descripciones de las tres propiedades de fuentes que se utilizan: 


Font-family Esta propiedad especifica el tipo de fuente para el texto. Algunos 
ejemplos son: 


<P ID=TextoConEstilo STYLE="font-family:Arial*"> 
'TYLE="font-family:Times"> 


He aqui el aspecto de las fuentes Arial y Times: 


Esta fuente es Arial. Obsérvese que Arial no tiene las pequeñas proyecciones al 
final de las letras. Éstas se denominan serifs, por lo que Arial es una fuente sans serif. 
(Sans es un vocablo francés que significa «sin»). 


Esta fuente es Times. Obsérvese que Times sí tiene serifs en las letras. Times es una fuente 
serif. 


En vez de nombrar a una fuente particular, se puede especificar serif o sans 
serif. Entonces simplemente se confia en Internet Explorer para que utilice la fuente 
estándar para dicho estilo en la máquina del usuario. (Ésta será Arial para fuentes 
sans serif y Times para fuentes serif en la mayoria de las máquinas.) Utilizar la 
propiedad font-family es fácil excepto por una complicación que siempre aparece- 
rá para cualquier nombre de propiedad de estilo que contenga un guión. Cuando se 
usa VBScript para controlar dicha propiedad, se ha de eliminar el guión. Por ejem- 
plo, el código podría ser el siguiente: 


TextoConEstilo:fontFamily = "Times" 


Font-style Esta propiedad establece el estilo de fuente. Hay tres posibilida- 
des: normal, cursiva o negrita. Por ejemplo: 


<P-ID=TextoConEstilo STYLE="font-family:Times; font-style:italic"s 


Obsérvese que se ha usado un punto y coma para poner más de una propiedad 
de estilo en esta etiqueta. De nuevo, ya que el nombre de propiedad font-style 
tiene un guión, se ha de usar el término fontStyle en el código VBScript. 

Font-size Como puede suponerse, esta propiedad especifica el tamaño de fuente. 
Las dos medidas más comunes que se utilizan para tamaños de fuentes son los 
puntos (abreviado pf) y los pixels. 

El siguiente código pone el párrafo en el tipo Arial de 12pt: 


<P ID=TextoConEstilo STYLE="font-family:Arial; font-size:12pt"> 
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Pixels se abrevia como px, como en el siguiente ejemplo: 


<P ID=TextoConEstilo STYLE="font-family:Arial; font-size:24px"> 

Recuérdese utilizar el término fontSize en el código VBScript, 

Supóngase que se desea escribir un script que incremente el tamaño del texto 
cada vez que se haga clic sobre éste. El truco consiste en que la propiedad fontSize 
devuelve una cadena como «8pt» o «20px». Se ha de extraer el número de forma 
que se le pueda sumar 1. Para hacer esto, se usa la función Left para eliminar los 
dos últimos caracteres y convertir el resultado en un número entero, Se le suma 1 
al entero, se vuelve a convertir a cadena y se le añade «pt» o «px». He aquí el 
código que hace esto para el caso en el que el texto esté en puntos: 


Temp = TextoConEstilo.style.fontsize 
Temp = Left(Temp, Len(Temp) - 2) 

Tam = CInt(Temp) + 1 

Temp = CStr(Tam) & "pt" 
TextoConEstilo.style.fontSize = Temp 


He aquí un programa (que también se encuentra en el archivo fontSize.htm del 
CD adjunto) que incorpora este código, con la característica añadida de que todo 
el proceso vuelve a comenzar cuando se llega a un tipo de 24 puntos: 


<HTML> 
<HEAD> 


<TITLE>Utilización de la propiedad fontSize</Title> 
<SCRIPT LANGUAGE="VBSCRIPT*"> 


<r- 
Option Explicit 


Sub TextoConEstilo_onClick 
Dim Temp, Tam 


Temp = TextoConEstilo.style.fontSize 

Temp = Left (Temp, Len(Temp) - 2 

Tam = CInt(Temp) + 1 

If Tam > 24 Then Tam = 8 

Temp = CStr(tam) £ “pto 

TextoConEstilo.style.fontSize = Temp 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 


<P ID=TextoConEstilo STYLE="font-size:8pt"> 
Haga clic sobre mí para incrementar mi tamaño. 
</P> 


</BODY> 
</HTML> 
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NOTA: También se puede especificar el tamaño de fuente en pulgadas (con la abreviatu- 
ra «in»), en centímetros (con la abreviatura «cm») y como porcentaje de la base que Inter- 
net Explorer esté usando actualmente. Por ejemplo, para hacer que el texto sea dos veces 
mayor que el tamaño de la base actual, se utiliza: 


TextoConEstilo.style.fontSize = "200%" 


Propiedades de alineación de texto 


En HTML tradicional, no hay forma de cambiar los márgenes o de alinear texto 
que no sea centrarlo. Ahora con HTML dinámico, no sólo se pueden controlar 
estas características cuando se diseña una página Web, también pueden cambiarse 
mediante código después de que se haya cargado la página. La siguiente tabla des- 
cribe las propiedades de alineación más frecuentes: 


Propiedad de alineación Descripción 


margin-left Establece el margen izquierdo mediante puntos (pt), pixels (px), 
pulgadas (in) o centímetros (cm). 

margin-right Establece el margen derecho mediante puntos (pt), pixels (px), 
pulgadas (in) o centimetros (cm). 

margin-top Establece el margen superior mediante puntos (pt), pixels (px), 
pulgadas (in) o centimetros (cm). 

text-indent Establece cuánto se indenta el texto del margen. Se pueden 
especificar valores negativos, obteniendo texto fuera del margen 
actual. Las unidades que se pueden usar son puntos (pt), 
pixels (px), pulgadas (in) o centímetros (cm). 

text-align Permite alinear el texto. Las tres posibilidades son: izquierda, 
derecha o centro. 


El código VBScript para esto no requiere nuevas técnicas. (Tan sólo recordar 
eliminar el guión del nombre de la propiedad.) Por ejemplo, la siguiente modifica- 
ción del código con el texto creciente (que también se encuentra en el archivo 
Margin.htm en el CD adjunto) hace que el margen izquierdo aumente en un punto 
cada vez que se hace clic sobre el texto. 


Sub TextoConEstilo_onClick 


Dim Temp 

Temp = TextoConEstilo.style.marginLeft 
Temp = Left (Temp, Len(Temp) - 2) 

Temp = CInt(Temp) + 1 

Temp = CStr(Temp) & "pt" 


TextoConEstilo.style.marginLeft = Temp 
End Sub 
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POSICIONAMIENTO DE OBJETOS 


Probablemente Ja característica más excitante que se ha añadido con HTML diná- 
mico es la capacidad de situar cualquier parte de una página Web en un lugar 
específico y luego cambiar estas posiciones dinámicamente por medio de código 
VBScript. Esta capacidad se aplica a cualquier objeto que se ponga en una página; 
se puede hacer que imágenes, texto, controles ActiveX ú otros elementos aparez- 
can exactamente donde se desee. De manera más precisa, se puede controlar de 
forma individual: 


m La posición horizontal de un objeto (la coordenada x). 


=m La posición vertical de un objeto (la coordenada y). 


m Cómo se solapan los objetos y cuál de ellos está arriba cuando esto ocurre 
(el orden z). (Sin embargo, no se tratarán las técnicas de manipulación del 
orden z.) 


Se puede usar posicionamiento absoluto o posicionamiento relativo para co- 
locar un elemento en una página Web. Un ejemplo de posicionamiento absoluto 


250 APRENDA MICROSOFT VISUAL BASIC SCRIPT YA 


es «Sitúa esta imagen a 1 pulgada de la parte superior del documento». El po- 
sicionamiento relativo utiliza porcentajes en lugar de unidades de medida. 
Por ejemplo, «Sitúa este elemento un 30 por 100 hacia abajo de la altura de la 
página». 

He aquí un ejemplo de etiqueta HTML que utiliza posicionamiento absoluto 
para situar una imagen a una pulgada de la parte superior del documento e inden- 
tada media pulgada. (Se explican más abajo los diversos parámetros de estilo que 
se emplean en esta etiqueta.) 


<IMG ID=MiImagen 
STYLE="position:absolute;top:lin;left=.5in" SRC=AGif.gif> 


El siguiente ejemplo sitúa la parte superior de la imagen un 10 por 100 hacia 
abajo y un 50 por 100 hacia la izquierda, 


<IMG ID= MiImagen 
STYLE="position: relative;top:10%;left=50%" SRC=AGİf.gif> 


Para ver cómo difieren estos dos métodos, abra el archivo Posicion.htm en el 
CD adjunto e intente redimensionar la ventana del visualizador. 

El posicionamiento relativo es generalmente preferible. Si se utiliza posiciona- 
miento relativo, se obtiene un aspecto y sensación consistentes, con independen- 
cia de cómo redimensionen los usuarios sus visualizadores o del tamaño de sus 
pantallas. Si se utiliza posicionamiento absoluto, se pueden tener problemas con 
los diferentes tamaños de ventanas de visualización o cuando el usuario redimen- 
siona la ventana. 

Las propiedades de posicionamiento más importantes son aquellas que contro- 
lan las posiciones superior e izquierda de un elemento, pero no se está restringido 
al uso de sólo estas propiedades. Hay dos variantes adicionales a cada una de estas 
etiquetas, por lo que hay un total de seis propiedades. Las variantes adicionales se 
describen en la siguiente tabla: 


Propiedad Descripción 

PixelLeft Devuelve o establece la posición izquierda del elemento en pixels, por lo 
que no es necesaria ninguna manipulación para trabajar con el valor. 

PosLeft Devuelve el valor de la propiedad Left como un número en las unidades 
actuales, por lo que no es necesaria ninguna manipulación para trabajar 
con el valor. 

PixelHeight Devuelve o establece la altura del elemento en pixels, por lo que no es 


necesaria ninguna manipulación para trabajar con el valor. 


PosHeight Devuelve el valor de la propiedad Height como un número en las 
unidades actuales, por lo que no es necesaria ninguna manipulación para 
trabajar con el valor. 
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Supóngase que se desea escribir un programa que dé animación a un logotipo 
moviéndolo a través de la pantalla. La idea sería cambiar la posición izquierda 
(Left) de la imagen hasta llegar al lateral de la página y entonces volver a empezar 
por el lado izquierdo. En este caso, claramente se quiere mover la imagen unos 
cuantos pixels cada vez, por lo que se debería usar la propiedad PixelLeft. Para 
hacer posible la animación, se debe cambiar la posición en una rutina especificada 
mediante el método Setlnterval. (Ya se vio este método en el capítulo anterior.) 
Finalmente, es necesaria una forma de saber dónde está el lado derecho de la ven- 
tana del visualizador o, en otras palabras, la anchura de la ventana en pixels. Esto 
resulta ser el valor de: 


Document .Body .OffsetWidth 


He aquí la página HTML (que también se encuentra en el archivo Animacion.htm 
del CD adjunto): 


<HTML> 

<HEAD> 
<TITLE>Animación</Title> 
<SCRIPT LANGUAGE VBScript» 


option Explicit 
Dim Temporizador 
Sub Window_Onload() 


Temporizador = Window.SetInterval 
End Sub 


“Animar”, 100) 


Sub Animar () 
If Imagen.Style.PixelLeft >= _ 
Document .Body.OffsetWidth Then 
Imagen.Style.Pixelieft = 0 
msgbox Imagen.Style.PixelLeft 
Else 
Imagen.Style.PixelLeft = Imagen.Style.PixelLeft + 10 
End If 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 
<IMG ID=Imagen 
STYLE="position:relative;top:0;left:0* 
SRC="Agif1.jpg"> 


</BODY> 
</HTML> 
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EVENTOS 


Un elemento es 
cualquier objeto 
que pueda ser 
modificado por 
medio de un script. 


SUGERENCIA: Obsérvese que se especifica un valor izquierdo de 0 en el atributo STYLE 
dentro de la etiqueta <IMG>. Por lo general, siempre se deberían especificar valores ini- 
ciales para los atributos que se quieran modificar por medio de un script; de lo contrario, 
Internet Explorer puede que no permita cambiarlos. 


La otra base de HTML dinámico es el amplio muestrario de eventos que se pueden 
utilizar en un script, Antes de entrar en detalles, se quiere estar seguro de que se 
comprende el término elemento que se ha utilizado ocasionalmente a lo largo del 
libro, Un elemento es cualquier objeto que se puede modificar por medio de un 
script, Por ejemplo, toda la información existente entre una etiqueta de apertura y 
otra de cierre es un elemento. El propio documento es un elemento, como también 
lo es el elemento padre, el objeto Window. Todos los elementos de una página 
Web responderán a los eventos que se describen en las dos siguientes tablas, la 
mayoría de los cuales ya resultarán familiares: 


Eventos de ratón Acción de usuario 

onMouscover Mover el puntero del ratón sobre el elemento. 

onMouseout Mover el ratón fuera del elemento. 

onMousedown Pulsar cualquiera de los botones del ratón mientras el puntero del 
ratón está dentro del elemento. 

onMouseup Liberar cualquiera de los botones del ratón mientras el puntero del 
ratón está dentro del elemento, 

onMousemove Mover el puntero del ratón dentro del elemento. 

onClick Hacer clic en el botón izquierdo del ratón sobre el elemento. 

onDblelick Hacer doble clic en el botón izquierdo del ratón sobre el elemento. 


Esta tabla describe los eventos de teclado: 


Eventos de teclado Acción de usuario 


onKeypress Pulsar y liberar una tecla (un ciclo completo hacia abajo y hacia 
arriba) o disparar múltiples eventos de este tipo si la tecla se 
mantiene pulsada. 


onKeydown Pulsar una tecla dispara un solo evento con independencia del tiempo 
que la tecla se mantenga pulsada. 


onKeyup Liberar una tecla. 
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Existen 39 eventos de los que el visualizador dará aviso para una posible ac- 
ción. Obviamente, tipos específicos de elementos responderán a diferentes sub- 
conjuntos de estos 39; sin embargo, todos los elementos se pueden utilizar con los 
eventos de las tablas precedentes, por lo que sólo dichos eventos se utilizarán en 
los ejemplos restantes. 


NOTA: Puede que los nombres de los eventos aparezcan escritos en letras minúsculas, 
por ejemplo «onmousedown». Este es el estilo utilizado en JavaScript y JScript, porque 
dichos lenguajes son sensibles a las mayúsculas. Ya que VBScript no es sensible a las ma- 
yúsculas, los programadores de VBScript acostumbran a utilizar mayúsculas y minúsculas 
indistintamente. 


Manejo de eventos 


Ya se ha visto la forma más fácil y comprensible de escribir código para gestionar 
eventos, Crear un procedimiento con la siguiente forma; 


Sub IDObjeto_NombreEvento() 


El siguiente ejemplo permite escribir código que se dispara cuando alguien 
hace clic sobre un elemento cuyo ID es Cuadro; 


Sub Cuadro_OnClick 


Este es el modelo que utiliza Visual Basic para enlazar procedimientos de manejo 
de eventos a objetos particulares. 

Sin embargo, el modelo de manejo de eventos de Internet Explorer es incluso 
más extenso que el de Visual Basic; los métodos más variados que tiene Internet 
Explorer para enlazar procedimientos de manejo de eventos a objetos permiten 
indicarle al visualizador que asocie el mismo gestor de evento a múltiples objetos. 
He aquí un ejemplo de código HTML que se tendría que escribir con el fin de 
ejecutar el mismo procedimiento de evento cuando el usuario hace clic sobre cual- 
quiera de tres párrafos separados: 


<P ID=Primero OnClick=*ParrafoClic" 
STYLE="font-family:Times*> 
Éste es el primer párrafo. 

</P> 

<P ID=Segundo OnClick="ParrafoClic* 
STYLE="font-family:Times*> 
Éste es el segundo párrafo, 

</P> 

<P ID=Tercero OnClick="ParrafoClic* 
STYLE="font-family:Times*> 
Éste es el tercer pár 

</P> 


rafo. 
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Objeto Window.Event 


Este objeto es la clave del manejo de eventos en HTML dinámico. De hecho, toda 
la información sobre cualquier evento que ocurra en Internet Explorer se almacena 
en el objeto Window.Event. Debido a que tiene 21 posibles elementos de informa- 
ción almacenados, no se van a revisar todos en este libro de introducción. Sin 
embargo, sí se van a presentar lo más importantes con algunos ejemplos de código. 


Propiedad SrcElement 


Una vez que se asocia el mismo evento a muchos elementos distintos, se necesita 
una forma de saber qué elemento ha disparado la acción. Esto se consigue median- 
te la siguiente línea de código VBScript: 


Window.Event.SrcElement 


ADVERTENCIA: No se puede utilizar la palabra clave Event por sí sola. Event es una 
palabra reservada en VBScript. 


En la línea de código superior, se ha utilizado la propiedad SrcElement del 
objeto Window.Event. Esta propiedad, como su nombre sugiere, devuelve la fuen- 
te del evento. Una linea de código como la siguiente puede ser de gran utilidad 
como herramienta de depuración para verificar qué elemento ha disparado el evento 
que hace emerger un cuadro de mensaje con el ID del elemento: 


MsgBox Window. Event .SrcElement.1D 


Como nuevo ejemplo de utilización de la propiedad Window.Event.srcElement, 
la siguiente página HTML cambia la fuente del párrafo sobre el que se haya hecho 
clic a Arial, cualquiera que sea el párrafo sobre el que se haya hecho clic, Cambia 
el párrafo correcto debido al siguiente código: 


Window.Event .SrcElement.Style.FontFamily="Arial* 


Esta línea se puede traducir como: «Encuentra la fuente del evento, luego en- 
cuentra su propiedad Style, luego encuentra su fuente y cámbiala a Arial». He aquí 
la página HTML (que también se encuentra en el archivo Multiple.htm del CD 
adjunto): 


<HTML> 
<HEAD> 


<TITLE>Asociación de gestores de eventos a múltiples objetos</Title> 
<SCRIPT LANGUAGE = VBScript> 


<!-- 


Option Explicit 
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Sub ParrafoClic() 
Window. Event .SrcElement.Style. FontPanily="Arial* 
End Sub 


--> 


</SCRIPT> 


</HEAD> 
<BODY> 


<P ID=Primero OnClick="ParrafoClic* 
STYLE="font-family:Times*> 
Éste es el primer párrafo 

</P> 

<P ID=Segundo OnClick="ParrafoClic* 
STYLE="font-family:Times"> 
Éste es el segundo párrafo 

</P> 

<P ID=Tercero OnClick="ParrafoClic* 
STYLE="font-family:Times"> 
Éste es el tercer párrafo 

</P> 


</BODY> 
</HTML> 


Antes de ver otras propiedades del objeto Window.Event, se quiere resaltar 
que SrcElement es la propiedad más importante. Esto es debido a que una vez que 
se tiene el objeto que ha disparado el evento, se está en la mejor disposición de 
actuar en consecuencia. 


A Otras propiedades del objeto Window.Event 


La siguiente tabla ofrece breves descripciones de otras importantes propiedades 
del objeto Window.Event, con la excepción de CancelButton, que se describirá en 
el apartado titulado «Activación y desactivación de eventos», más adelante. 
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Propiedad Descripción 
AltKey Devuelve true si la tecla Alt estaba pulsada cuando ocurrió el evento. 
CtriKey Devuelve true si la tecla Ctrl estaba pulsada cuando ocurrió el evento, 
ShiftKey Devuelve true si la tecla Mayúsculas estaba pulsada cuando ocurrió el 
evento. 
Button Indica qué botón del ratón (si hubiera alguno) estaba pulsado cuando 
ocurrió el evento, de la forma siguiente: 
0 = ningún botón 


1 = botón izquierdo 
2 = botón derecho 


4 = botón central 

ScreenX, ScreenY Devuelve la localización del puntero del ratón con relación a la pantalla 
completa. 

X,Y Devuelve la localización del puntero del ratón con relación a la zona 


utilizable del visualizador (la parte del visualizador que muestra la 
propia página, excluyendo cosas tales como barras de herramientas, 
barras de desplazamiento y la barra de titulos). 


KeyCode Devuelve el código ASCII de la tecla pulsada. 


Se va a empezar con un ejemplo que utiliza la propiedad KeyCode. El evento 
onKeypress dispara este ejemplo. 


NOTA: También hay eventos onKeydown y onKeyup, que proporcionan mayor control. 
Estos eventos se disparan por el simple hecho de pulsar o liberar una tecla. Sin embargo, el 
evento onKeypress se dispara por la acción combinada de pulsar y liberar. Funciona mejor 
para procesar la entrada de caracteres de un usuario. 


Como ejemplo de evento onKeypress, se va a mostrar un script que genera un 
mensaje de advertencia cuando el usuario intenta pulsar cualquier tecla que no sea 
un digito (0-9). Configurar la propiedad returnValue del objeto de evento a False 
hace que se ignore la tecla pulsada. La parte principal del código es la siguiente: 


Sub Texto_OnKeyPress() 
Dim Fuente 
Set Fuente - Window.Event 
If Fuente.KeyCode < Asc(0) Or _ 
Fuente.KeyCode > Asc(9) Then 
MsgBox "Tecla incorrecta" 
Fuente.returnValue = false 
End If 
End Sub 


He aquí el código HTML (que también se encuentra en el archivo KeyPress.htm 
del CD adjunto): 
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<HTML> 
<HEAD> 


<TITLE>Manejo del evento onKeypress</Title> 
<SCRIPT LANGUAGE = VBScript> 


<t- 
Option Explicit 


Sub Texto_OnKeyPress() 
Dim Fuente 


Set Fuente = Window.Event 
If Fuente.KeyCode < Asc(0) Or _ 
Fuente.KeyCode > Asc(9) Then 
MsgBox "Tecla incorrecta" 
Fuente.returnValue = false 
End 1f 
End Sub 


</SCRIPT> 


</HEAD> 
<BODY> 


<Hl> 
Esta página dará un aviso en caso de que se introduzcan caracteres 
que no sean dígitos en el cuadro de texto inferior. 

</H1> 

<BR><BR> 

<INPUT ID = Texto TYPE=Text> 


</BODY> 
</HTML> 


Como nuevo ejemplo, supóngase que se quiere eliminar el mensaje si un usua- 
rio mantiene pulsada la tecla Mayúsculas mientras introduce el carácter distinto de 
dígito. El código resultante sería: 


Sub Texto_OnKeyPress() 
Dim Fuente 
Set Puente = Window.Event 
If Fuente.ShiftKey Then 
' no hacer nada, la tecla estaba pulsada 
Elself Fuente.KeyCode < Asc(0) Or _ 
Fuente.KeyCode > Asc(9) Then 
MsgBox "Tecla incorrecta” 
Puente.returnValue = false 
End I£ 
End Sub 


Eventos de ratón 


Para ver los eventos de ratón, se va a mostrar un programa que informa en un área 
de texto de la posición actual del puntero del ratón en la página Web. El secreto 
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está en escribir código (en el procedimiento Document OnMouseMove) que utilice 
las propiedades Window.Event.X y Window.Event.Y. He aquí la rutina principal 
(obsérvese cómo se reinicia la propiedad Value del objeto TextArea en el código): 


Sub Document_OnMouseMove () 
Dim Temp, Fuente 
Set Fuente = Window.Event 
Temp = "La coordenada X del ratón es * á Fuente.X 
Temp = Temp á ". La coordenada Y es * & Fuente.Y & "." 
Texto.Value = Temp 

End Sub 


He aquí el código HTML completo (que también se encuentra en el archivo 
MousePos.htm del CD adjunto): 


<HTML> 
<HEAD> 


<TITLE>Manejo del evento onMousemove</Title> 
<SCRIPT LANGUAGE = VBScript> 


<l-- 
Option Explicit 


Sub Document_OnMouseMove |) 
Dim Temp, Fuente 


Set Fuente = Window. Event 
Temp = "La coordenada X del ratón es " £ Fuente.X 
Temp = Temp á ". La coordenada Y es " á Fuente.Y 4 "." 


Texto.Value = Temp 
End Sub 
</SCRIPT> 
</HEAD> 
<BODY> 


<H1> 
Esta página siempre dirá en el cuadro de texto inferior 
dónde está el puntero del ratón, Mueva el ratón para probar, 
</H1> 


<BR><BR> 


<TextArea ID = Texto Rows=4 COL=40> 
</TextArea> 


</BODY> 
</HTML> 
Burbuja de eventos y cancelación de eventos 


El último tema que se quiere tratar es una complejidad técnica de la forma en la 
que Internet Explorer gestiona los eventos. Cuando se hace clic sobre un objeto 
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como un cuadro de texto, el evento también se reporta como una operación de 
clic a todos los objetos que contienen al cuadro de texto. Por ejemplo, el objeto 
Document que contiene al cuadro de texto también es informado de dicho clic. 
Pruébese el siguiente script (que se incluye en el archivo EventBub.htm en el CD 
adjunto): 


<HTML> 
<HEAD> 


<TITLE>Burbuja de eventos</Title> 
<SCRIPT LANGUAGE = VBScript»> 


option Explicit 


Sub Document_OnClick() 
MsgBox "Hizo clic en el documento." 
End Sub 


Sub Texto_OnClick() 
Box "Hizo clic en el cuadro de texto." 
End Sub 


</SCRIPT> 


<Hl> 
Esta página dirá en dónde se ha hecho clic. 
</H1> 


<BR><BR> 


<TextArea ID = Texto Rows=4 COL=40> 
</TextArea> 


</BODY> 
</HTML> 


Si se abre esta página y se hace clic dentro del área de texto, se verán ambos 
mensajes. En cierto modo, esto tiene sentido; el área de texto está, después de 
todo, dentro del documento, por lo que cuando se hace clic en el área de texto 
realmente también se está haciendo clic en el documento al mismo tiempo. ¿Pero 
qué ocurre si sólo se quiere responder a dicho clic cuando se active fuera del área 
de texto? 

En general, el mecanismo de información de eventos de Internet Explorer en- 
vía eventos hacia arriba en la cadena de contenedores. En el ejemplo anterior, el 
área de texto está contenida en el objeto Window, por lo que el evento es reporta- 
do al objeto Window. Sin embargo, si se hubiese abierto la página en un marco 
dentro de otro marco, la cadena de contenedores sería la siguiente: 


Área de texto -> Documento -> Primer marco -> Segundo marco -> Window 
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El evento clic se reportaría entonces a los cinco niveles, o más si se tuviera 
incluso más contenedores. 

Naturalmente, Internet Explorer tiene en cuenta el orden en el que dispara los 
eventos; empieza por el nivel más bajo y entonces sube (a modo de burbuja) por los 
distintos niveles de los contenedores del objeto hasta que llega al objeto Window, 
que lo contiene todo. Ciertamente, sería bueno que hubiese una manera de capturar 
el evento de forma que se parara en un nivel de la cadena determinado. Esto puede 
hacerse configurando la propiedad CancelBubble del objeto Window.Event a True 
en el contenedor en el que se quiera detener la burbuja para que no continúe. 

El siguiente código es una versión de la página anterior que no dispara el even- 
to Document_OnClick cuando se hace clic sobre el área de texto, pero sí informa 
de éste cuando se hace clic sobre cualquier otra parte del documento, debido a esta 
línea de código del procedimiento Texto_OnClick: 


Window.Event.CancelBubble = True 


He aquí el código HTML completo (que también se incluye en el archivo 
Cancel.htm del CD adjunto): 


<HTML> 
<HEAD> 


<TITLE>Cancelación de burbuja de eventos</Title> 
<SCRIPT LANGUAGE s VBScript> 


ES 
Option Explicit 


Sub Document_OnClick() 
MsgBox "Hizo clic en el documento." 
End Sub 


Sub Texto_OnClick() 
MsgBox "Hizo clic en el cuadro de texto." 
Window.Event.CancelBubble = True 

End Sub 


=-> 


</SCRIPT> 


</HEAD> 
<BODY> 


eHÍS 
Esta página dirá en dónde se ha hecho clic pero 
¡sólo informará una vez de la respuesta! 

</ul> 


<BR><BR> 


<TextArea 1D = Texto Rows=4 COL=40> 
</TextArea> 


</BODY> 
</HTML> 
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SCRIPTLETS 


Para finalizar este capítulo se va a introducir una de las nuevas y más excitantes 
tecnologías que es resultado de HTML dinámico. Es la capacidad de usar páginas 
HTML creadas mediante HTML dinámico de la misma forma en que se usan con- 
troles ActiveX, como objetos reutilizables. Los Scriptlets son realmente interesan- 
tes y útiles por diversos motivos: 


m Son pequeños, por lo que no tardan mucho en cargarse. 


m Son seguros como el propio HTML dinámico. 


m Se ejecutarán potencialmente en más lugares que en los que puedan ejecu- 
tarse los controles ActiveX. 


m Constituyen una idea fantástica y elegante. 


Un Scriptlet se integra en una página Web mediante la etiqueta <OBJECT>, 
como en el siguiente ejemplo de código: 


<OBJECT Width = 400 Height = 100 ID=AnimacionScriptlet 
TYPE="text/x-scriptlet" DATA="Scriptlt.htm"> 
</OBJECT 


Obsérvese que no se requiere un identificador de clase CLASSID como en un 
control ActiveX, aunque se siga usando la etiqueta <OBJECT>. Simplemente se 
incluye un atributo especial TY PE=«text/x-scriptlet» y se especifica el nombre del 
archivo HTML que define el Scriptlet mediante el atributo DATA. 

Ahora se describe el propio Scriptlet. Cualquier página HTML dinámica servi- 
rá bien como base para construir un Seriptlet. Por ejemplo, la página de animación 
que se vio anteriormente es por sí misma un perfecto Seriptlet. Probablemente se 
querrá algo más, tal como asignar a los Scriptlets propiedades y métodos particu- 
lares (e incluso eventos particulares) que se puedan controlar. Así que primero se 
va a añadir una propiedad particular a la página HTML dinámica de animación 
(Animacion.htm en el CD adjunto). La propiedad Scriptlet más sencilla (una que 
configure un simple valor) se puede integrar en un Scriptlet declarando una varia- 
ble en el Scriptlet de esta forma: 


Public_VelocidadAnimacion = 50 


ADVERTENCIA: No debe utilizarse la sentencia Option Explicit en un Scriptlet o los mé- 
todos y propiedades particulares no funcionarán. 


Esto se convierte en una propiedad Seriptlet denominada VelocidadAnimación. 
(El prefijo Public_ desaparece del nombre de la propiedad cuando se accede a ésta 
por medio de un script desde otra página HTML.) Esta propiedad se inicializa con 
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un valor de 50, pero puede cambiarse mediante VBScript utilizando el ID del Scrip- 
tlet como se muestra en el siguiente código: 


IDDeScriptlet.VelocidadAnimacion = 100 


A continuación se muestra un método denominado Iniciar que le indica al Scrip- 
tlet que comience la animación. Los métodos que se quiere que el Scriptlet expon- 
ga hacia el exterior son simplemente funciones o subrutinas de script definidas en 
el archivo de Scriptlet que comienzan con la palabra clave «Public_». El nombre 
que sigue a Public_ se convierte en el nombre del método que se invoca para utili- 
zar el Scriptlet; Public_ se elimina del nombre, Por ejemplo, el siguiente código 
muestra cómo se puede volver a escribir la página HTML dinámica de animación 
para que incluya un método denominado Iniciar que se utilice para controlar el 
Scriptlet: 


Sub Public Iniciar() 
Dim Temporizador 
Temporizador = Window.SetInterval("Animar", _ 
Public_VelocidadAnimacion) 
End Sub 


Obsérvese cómo se ha utilizado la variable asociada a la propiedad Velocidad- 
Animación para configurar el intervalo de temporización de este método Iniciar. 
Aquí se debe utilizar «Public_» delante del nombre de la propiedad porque se está 
accediendo a la propiedad particular desde dentro del Scriptlet. 

Eso es todo. Se ha creado un Scriptlet que da animación a una sola imagen 
gráfica, Naturalmente, el archivo de la imagen está integrado en el Scriptlet, ¿pero 
por qué no modificar el Scriptlet para agregar una propiedad que permita configu- 
rar el nombre del archivo? Se dejará esta mejora para el lector; he aquí una versión 
del Scriptlet que permite iniciar la animación y también configurar su velocidad 
(también se encuentra en el archivo Scriptlet.htm del CD adjunto): 


<HTML> 
<HEAD> 


<TITLE>Animación</Title> 
<SCRIPT LANGUAGE = VBScript> 
> 

Public_VelocidadAnimacion = 50 


Sub Public_Iniciar() 
Temporizador = Window.SetInterval("Animar" 
Public_VelocidadAnimacion) 
End Sub 


Sub Animar () 

. If Imagen.Style.PixelLeft >= _ 
Document .Body.Offsetwidth Then 
Imagen.Style.PixelLeft = 0 
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un valor de 50, pero puede cambiarse mediante VBScript utilizando el ID del Scrip- 
tlet como se muestra en el siguiente código: 


IDDeScriptlet.VelocidadAnimacion = 100 


A continuación se muestra un método denominado Iniciar que le indica al Scrip- 
tlet que comience la animación. Los métodos que se quiere que el Scriptlet expon- 
ga hacia el exterior son simplemente funciones o subrutinas de script definidas en 
el archivo de Scriptlet que comienzan con la palabra clave «Public_». El nombre 
que sigue a Public_ se convierte en el nombre del método que se invoca para utili- 
zar el Scriptlet; Public_ se elimina del nombre. Por ejemplo, el siguiente código 
muestra cómo se puede volver a escribir la página HTML dinámica de animación 
para que incluya un método denominado Iniciar que se utilice para controlar el 
Scriptlet: 


Sub Public Iniciar() 
Dim Temporizadof 
Temporizador = Window.SetInterval("Animar", _ 
Public_VelocidadAnimacion 
End Sub 


Obsérvese cómo se ha utilizado la variable asociada a la propiedad Velocidad- 
Animación para configurar el intervalo de temporización de este método Iniciar. 
Aquí se debe utilizar «Public_» delante del nombre de la propiedad porque se está 
accediendo a la propiedad particular desde dentro del Scriptlet. 

Eso es todo. Se ha creado un Scriptlet que da animación a una sola imagen 
gráfica. Naturalmente, el archivo de la imagen está integrado en el Scriptlet, ¿pero 
por qué no modificar el Scriptlet para agregar una propiedad que permita configu- 
rar el nombre del archivo? Se dejará esta mejora para el lector; he aquí una versión 
del Scriptlet que permite iniciar la animación y también configurar su velocidad 
(también se encuentra en el archivo Scriptlet.htm del CD adjunto): 


<HTML> 
<HEAD> 


<TITLE>Animación</Title> 
<SCRIPT LANGUAGE = VBScript> 
ss 

Public_VelocidadAnimacion = 50 


Sub Public_Iniciar() 
Temporizador = Window.SetInterval("Animar", _ 
Public_VelocidadAnimacion 
End Sub 


Sub Animar () 

. If Imagen.Style.PixelLeft >= _ 
Document .Body.Offsetwidth Then 
Imagen.Style.PixelLeft = O 
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Else 
Imagen.Style.PixelLeft - Imagen.Style.PixelLeft + 10 
End If 
End Sub 
--> 
</SCRIPT> 


</HEAD> 
<BODY> 


</BODY> 
</HTML> 


Obsérvese que cuando se usa un Scriptlet como parte de otra página Web, el 
título de la página no se muestra, incluso si se tiene uno, 

A continuación se van a tratar las páginas HTML que utilizan el Scriptlet 
de animación. Las líneas fundamentales son aquellas que configuran la velocidad 
de animación y aquellas que inician la animación. Por simplicidad, se va a poner 
el código que hace esto en el procedimiento Window_OnLoad junto con un cua- 
dro de entrada (InputBox) que pide al usuario que introduzca la velocidad de 
animación. A continuación se escribe el código que verifica si la entrada es un 
número y lo convierte en positivo si es negativo. Si no se introduce un número 
válido, simplemente se utiliza el valor de velocidad por omisión que ya está in- 
cluido en el Scriptlet (50). He aquí el código fuente de este procedimiento de 
evento: 


Sub Window_Onload() 
Velocidad = InputBox("Por favor introduzca la velocidad de 
animación") 
If IsNumeric(Velocidad) Then 
Velocidad = Abs(Velocidad 
AnimacionScriptlet.VelocidadAnimacion = Velocidad 
End If 
AnimacionScriptlet.Iniciar 
End Sub 


En el HTML actual que utiliza este Scriptlet, se ha hecho un cambio en el 
evento Window_OnLoad. Se ha utilizado HTML dinámico una vez más para ha- 
cer que el Scriptlet sea tan alto y ancho como la página mediante las siguientes 
líneas: 


AnimacionScriptlet.Width Document .Body.Offsetwidth 
AnimacionScriptlet.Height = Document .Body.OffsetHeight 


He aquí la página HTML completa (que también se incluye en el archivo 
UsarScrtlt.htm del CD adjunto): 
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<HTML> 
<HEAD> 


<TITLE>Utilización de Scriptlets</Title> 
<SCRIPT LANGUAGE = VBScript> 


Option Explicit 
Dim Velocidad 


Sub Window_Onload() 
AnimacionScriptlet.Width = Document .Body.Offsetwidth 
AnimacionScriptlet.Height = Document.Body.OffsetHeight 


Velocidad = InputBox("Por favor introduzca la velocidad de 
, animación”) 


If IsNumeric(Velocidad) Then 
Velocidad = Abs(Velocidad) 
AnimacionScriptlet.Velocidadanimacion = Velocidad 
End If 


AnimacionScriptlet.Iniciar 
End Sub 


> 


</SCRIPT> 


</HEAD> 
<BODY> 


nimacionSeriptlet 
DATA="Scriprlt.htm"> 


<OBJECT Height = 100 1 
TYPE. xt /x-scriptler 
</OBJECT> 


</BODY> 
</HTML> 


Obviamente, queda mucho que decir acerca de los Scriptlets, en particular so- 
bre la creación de eventos personalizados o propiedades más sofisticadas que no 
se representan tan fácilmente mediante variables públicas. Los Scriptlets son una 
tecnología tan reciente que todavía no hay mucha información acerca de ellos. Se 
espera que estas páginas hayan servido para despertar el interés y profundizar más. 
En la actualidad la mejor fuente de información es el nodo Web de Microsoft en 
http://www.microsoft.com/msdn/sdk/inetsdk/help/scriptlets/scrlt.htm. 


NOTA: Para visitar esta página, es necesario registrarse en «Developer Network Online». 
Es un servicio gratuito. 


En cualquier caso, se sugiere que se pruebe con esta URL primero y luego se 
utilice la facilidad de búsqueda del nodo Web de Microsoft para encontrar más 
referencias sobre Scriptlets. 


- Apéndice 


VBScript frente a Visual Basic 


La siguiente tabla ofrece una lista de las caracteristicas de VBScript (Microsoft 
Internet Explorer 4) que no se encuentran en las versiones actuales de Microsoft 
Visual Basic (Visual Basic y Visual Basic para Aplicaciones). 


Categoría 


Característica/palabra clave 


Formato de cadenas 


Constantes intrínsecas 


Redondeo 


Cadenas 


FormatCurrency 
FormatDateTime 
FormatNumber 
FormatPercent 
MonthName 
WeekdayName 


vbGeneralDate 
vbLongDate 
vbLongTime 
vbShortDate 
vbLongDate 
vbTristateFalse 
vbTristateMixed 
vbTristateTrue 
vbTristateUseDefault 


Round 


Filter 
InstrRev 
Join 
Replace 
Split 
StrReverse 
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Categoría Característica/palabra clave 

Identificación de Script Engine ScriptEngine 
ScriptEngineBuildVersion 
ScriptEngineMajorVersion 


ScriptEngineMinorVersion 


La siguiente tabla ofrece una lista de las características de Visual Basic y Vi- 
sual Basic para Aplicaciones que no se encuentran en VBScript (Internet Explorer 4). 


Categoría Caracteristica/palabra clave 


Gestión de arrays Option Base 
Declaración de arrays con límite inferior <> 0 


Colecciones Add, Count, Item, Remove 
Acceso a colecciones utilizando el carácter ! 
(Ej.. MiColeccion!Foo) 


Compilación condicional HConst 
HIF...Then...HElse 

Flujo de control DoEvents 
GoSub...Return, GoTo 
On Error GoTo 


On...GoSub, On...GoTo 
Números de linea, etiquetas de línea 
With...End With 


Conversiones CVar, CVDate 
Str, Val 

Tipos de datos Todos los tipos de datos intrínsecos excepto 
Variant 
Type...End Type 


Fecha/hora Sentencia Date, sentencia Time 
Timer 


DDE LinkExecute, LinkPoke, LinkRequest, 
LinkSend 


Depuración Debug.Print 
End, Stop 


Declaraciones Declare (para la declaración de DLL) 
New 
Optional 
ParamArtay 
Propiedad Get, propiedad Let, propiedad Set 
Static 
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Categoría Característica/palabra clave 


Tratamiento de errores Erl 
Error 


On Error...Resume 
Resume, Resume Next 


Entrada/salida de archivos Toda la E/S de archivos tradicional de Basic 
Finanzas j Todas las funciones financieras 
Manipulación de objetos TypeOf 
Objetos Clipboard 

Collection 
Operadores Like 
Opciones Deftype 

Option Base 


Option Compare 
Private, opción de módulo 


Select Case Todo excepto comparaciones de igualdad 
Cadenas Cadenas de longitud fija 
LSet, RSet 


Sentencia Mid 
StrConv 


LISTA ALFABÉTICA DE PALABRAS CLAVE 


+ (Operador de adición) 

- (Operador de resta, negación) 
& (Operador de concatenación) 

/ (Operador de división) 

= (Operador de igualdad) 

<> (Operador de desigualdad) 

< (Operador menor que) 

> (Operador mayor que) 

<= (Operador menor o igual que) 
>= (Operador mayor o igual que) 
A (Operador de exponenciación) 
| (Operador de división de enteros) 
* (Operador de multiplicación) 
Abs, función 

Add, método 

AddFolders, método 

And, operador 

Array, función 

Asc, función 

AtEndOfLine, propiedad 
AtEndOfStream, propiedad 

Atn, función 

Attributes, propiedad 
AvailableSpace, propiedad 


- Apéndice 


Palabras reservadas 


BuildPath, método 
Call, sentencia 
CBool, función 
CByte, función 
CCur, fun 
CDate, función 

CDbl, función 

Chr, función 

Cint, función 

Clear, método 

CLng, función 

Close, método 

Column, propiedad 
CompareMode, propiedad 
Const, sentencia 

Copy, método 

CopyFile, método 
CopyFolder, método 

Cos, función 

Count, propiedad 
CreateFolder, método 
CreateObject, función 
CreateTextFile, método 
CSng, función 
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CStr, función 

Date, función 

DateAdd, función 
DateCreated, propiedad 
DateDiff, función 
DateLastAccessed, propiedad 
DateLastModified, propiedad 
DatePart, función 

DateSerial, función 
DateValue, función 

Day, función 

Delete, método 

DeleteFile, método 
DeleteFolder, método 
Description, propiedad 
Dictionary, objeto 

Dim, sentencia 

Do...Loop, sentencia 

Drive, objeto 

Drive, propiedad 
DriveExists, método 
DriveLetter, propiedad 
Drives, colección 

Drives, propiedad 
DriveType, propiedad 

Each (sentencia For Each...Next) 
Else (sentencia If...Then...Else) 
Empty 

Eqv, operador 

Erase, sentencia 

Err, objeto 

Exists, método 

Exit, sentencia 

Exp, función 


Explicit (sentencia Option Explicit) 


False 

FileExists, método 

File, objeto 

Files, colección 

Files, propiedad 
FileSystemObject, objeto 
FileSystem, propiedad 
Filter, función 

Fix, función 


Folder, objeto 

Folders, colección 
FolderExists, método 
For...Next, sentencia 

For Each...Next, sentencia 
FormatCurrency, función 
FormatDateTime, función 
FormatNumber, función 
FormatPercent, función 
FreeSpace, propiedad 
Function, sentencia 
GetAbsolutePathName, método 
GetBaseName, método 
GetDrive, método 
GetDriveName, método 
GetExtensionName, método 
GetFile, método 
GetFileName, método 
GetFolder, método 
GetObject, función 
GetParentFolderName, método 
GetSpecialFolder, método 
GetTempName, método 
Hex, función 
HelpContext, propiedad 
HelpFile, propiedad 

Hour, función 
1f...Then...Else, sentencia 
Imp, operador 

InputBox, función 

InStr, función 

InStrRev, función 

Int, función 

IsArray, función 

IsDate, función 

IsEmpty, función 

IsNull, función 
IsNumeric, función 
IsObject, función 

Is, operador 

IsReady, propiedad 
IsRootFolder, propiedad 
Item, propiedad 

Items, método 


Join, función 

Key, propiedad 

Keys, método 

LBound, función 
LCase, función 

Left, función 

Len, función 

Line, propiedad 
LoadPicture, función 
Log, función 

Loop (sentencia Do...Loop) 
LTrim, función 

Mid, función 

Minute, función 

Mod, operador 

Month, función 
MonthName, función 
Move, método 
MoveFile, método 
MoveFolder, método 
MsgBox, función 
Name, propiedad 

Next (sentencia For...Next) 
Not, operador 

Nothing 

Now, función 

Null 

Number, propiedad 
Oct, función 

On Error, sentencia 
OpenAsTextStream, método 
OpenTextFile, método 
Option Explicit, sentencia 
Or, operador 
ParentFolder, propiedad 
Path, propiedad 

Private, sentencia 
Public, sentencia 

Raise, método 
Randomize, sentencia 
Read, método 

ReadAll, método 
ReadLine, método 
ReDim, sentencia 
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Rem, sentencia 
Remove, método 
RemoveAll, método 
Replace, función 
RGB, función 

Right, función 

Rnd, función 
RootFolder, propiedad 
Round, función 
RTrim, función 
ScriptEngine, función 


271 


ScriptEngineBuildVersion, función 
ScriptEngineMajorVersion, función 
ScriptEngineMinorVersion, función 


Second, función 
Select Case, sentencia 
SerialNumber, propiedad 
Set, sentencia 

Sgn, función 
ShareName, propiedad 
ShortName, propiedad 
ShortPath, propiedad 
Sin, función 

Size, propiedad 

Skip, método 
SkipLine, método 
Source, propiedad 
Space, función 

Split, función 

Sqr, función 
StrComp, función 
String, función 
StrReverse, función 
Sub, sentencia 
SubFolders, propiedad 
Tan, función 
TextStream, objeto 
TimeSerial, función 


Then (sentencia If... Then... Else) 


Time, función 
TimeValue, función 
TotalSize, propiedad 
Trim, función 

True 
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Type, propiedad 
TypeName, función 
UBound, función 
UCase, función 
VarType, función 
VolumeName, propiedad 
Weekday, función 
WeekdayName, función 


Wend (sentencia While...Wend) 
While...Wend, sentencia 

Write, método 
WriteBlankLines, método 
WriteLine, método 

Xor, operador 

Year, función 


Preguntas frecuentes 


He aquí preguntas frecuentes acerca de VBScript. Ya se ha visto gran parte de esta 
información en el libro; el propósito de este apéndice es recopilarlo todo de forma 
conveniente para futuras referencias. 


NOTA: Las preguntas frecuentes propias de Microsoft que se han utilizado como base 
para este apéndice se pueden encontrar en www.microsoft.com/vbscript. 


1. ¿Qué es VBScript? 


El nombre oficial de VBScript es Microsoft Visual Basic Scripting Edition. Es 
un subconjunto del lenguaje Visual Basic para Aplicaciones (VBA), aunque 
tiene algunas caracteristicas que todavía no se han introducido en VBA. Se 
puede encontrar tanto en visualizadores como en productos de terceros. Inclu- 
so puede utilizarse para programar Microsoft Windows 95 y Microsoft Windo- 
ws NT por medio de Microsoft Windows Scripting Host (actualmente disponi- 
ble en www.microsofi.com/management/wsh.htm). VBScript ha sido diseñado 
para trabajar con controles ActiveX u otros componentes que utilizan tecnolo- 
gías ActiveX o HTML dinámico, incluyendo Scriptlets. 


2. ¿Cómo se consigue VBScript? 
VBScript forma parte de Internet Explorer versión 4 o posterior para la plata- 


forma Windows. (Esto significa que millones de personas disponen de VBScript, 
¡aunque todavía no lo saben!) 
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3. ¿Dónde se puede encontrar información adicional a cerca de VBScript 
después de finalizar este libro? 


Debería tenerse la costumbre de visitar el nodo de la World Wide Web sobre 
VBScript en www.microsoft.com/vbscript. Este nodo tiene una lista de nodos 
no pertenecientes a Microsoft que pueden resultar de interés, El nodo www. in- 
quiry.com tiene información muy útil. Yahoo (www.yahoo.com) también es un 
buen lugar para buscar información sobre nodos acerca de VBScript. Hay un 
conjunto de grupos de noticias sobre VBScript mantenidos por Microsoft don- 
de se pueden preguntar (o contestar) cuestiones específicas. (Para saber cómo 
acceder a estos grupos de noticias, haga clic en el enlace Resources de www.mi- 
crosofi.com/vbscript. Aunque mantenido por Microsoft, la mayoría de respuestas 
de estos grupos de noticias proceden de personas ajenas a Microsoft.) 


4. ¿Cómo es VBScript comparado con JavaScript y Java? 


JavaScript es un lenguaje diseñado por Netscape Communications para pro- 
gramar páginas Web. Por tanto, VBScript y JavaScript están diseñados para 
hacer el mismo tipo de cosas. JavaScript es mucho más dificil de aprender que 
VBScript ya que JavaScript utiliza una sintaxis muy similar al enigmático len- 
guaje de programación C. Java, por otro lado, es un potente lenguaje de pro- 
gramación de Sun Microsystems que tiene poco o nada que ver con JavaScript. 
Java es un lenguaje de programación de propósito general que requiere mucho 
estudio para su dominio y, naturalmente, como un completo lenguaje de pro- 
gramación de propósito general puede utilizarse para mucho más que generar 
páginas Web activas. 


5. ¿Qué plataformas permitirán VBScript dentro de un visualizador? 


Eventualmente, toda plataforma que tenga Internet Explorer permitirá segu- 
ramente VBScript. Véase el nodo Web (www.microsoft.com/vbscript) sobre 
VBScript para actualizaciones. 


6. ¿Se puede utilizar VBScript fuera de un visualizador? 


Si. Aunque se requieren ciertos conocimientos de programación avanzada para 
añadir VBScript a una aplicación, una vez hecho por el fabricante de aplica- 
ciones, se podrá utilizar VBScript para controlar dicho producto. Muchas com- 
pañías han anunciado que van a incorporar VBScript a sus productos y, lo 
que es más excitante, Microsoft ha anunciado que se puede utilizar VBScript 
para controlar los propios Windows 95 y Windows NT. (Actualmente, el pro- 
grama necesario para hacerlo puede traerse desde www.microsoft.com/mana- 
gement/wsh.htm.) Muchas otras compañías han anunciado que van a incorpo- 
rar VBScript a sus productos. (VBScript no necesita licencia. Obviamente, 
se debe incluir la correspondiente marca registrada y la información sobre 
derechos de propiedad, pero se puede utilizar y distribuir VBScript libre de 
costes.) 


9. 


10. 


11. 
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Se ha dicho que VBScript puede utilizar objetos creados por otras 
personas, pero ¿qué tipo de objetos? 


VBScript ya viene con algunos objetos, tales como cuadros de mensaje, que 
se pueden utilizar. Otros objetos que se controlan habitualmente mediante 
VBScript son: 


m Controles ActiveX (Véase el Capítulo 2). 

m Objetos proporcionados por Internet Explorer (Véase el Capítulo 8). 
1 Scriptlets (Véase el Capítulo 9). 

m Programas Java (o applets). 


(Aunque no se ha hablado acerca de applets en este libro, se controlan me- 
diante VBScript de la misma forma que un control ActiveX o un Scriptlet, 
asignándoles un nombre e invocando sus procedimientos o propiedades. Véanse 
los Capítulos 2 y 9 para más información sobre estas técnicas.) 


Se ha intentado utilizar el método Document.Write, pero ¿por qué no 
funciona? 


Este problema está causado habitualmente por situar el código de la senten- 
cia Document.Write en el apartado equivocado de la página HTML. El códi- 
go que afecte a la página se debe situar antes del apartado <BODY>. 


¿Cómo se utiliza una etiqueta para identificar un cuadro de texto? 
No se consigue alinearlos adecuadamente. 


La mejor forma de hacerlo es mediante métodos avanzados de posicionamiento 
de controles en una página Web (véase el Capítulo 9). 


Se obtiene un mensaje de error cuando se utiliza Ver código fuente. 
Tras realizar los cambios y volver a Internet Explorer no ocurre nada. 
Se obtiene el mismo mensaje de error, ¿Por qué? 


Se debe guardar el archivo fuente actualizado en el Bloc de notas y después 
actualizar la página Web. 

Al añadir un gráfico a un control ActiveX, ¿por qué la etiqueta 
<OBJECT> contiene cosas sin sentido? 


Si las «cosas sin sentido» están a continuación del atributo DATA y tienen 
un aspecto parecido a lo siguiente, no son en absoluto cosas sin sentido; es 
una versión codificada de la imagen utilizada: 


DATA="DATA:application/x- 
oleobject;BASE64,QDIF12n0ZRGNAWDIARQ8BVWACEACSAAAA/ 
/BAAOWJAABOAWAASIFn2krCzxG1 
hACGAKCAGMxUAAAWAWAARO1GOD1hUAAGANX/AP / / / /9MMBZM2MxMM8BWZM5MZ 
mZkzM5kzAGZmZ2mYzADM2M2MAAAARAP / /2P //mME//24//M///AP/M///M2P/M 
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12. 


13. 


14. 


15. 


mf /MZv /MM//MAP+Z //+2Z2P+2mf+22v+2M/+ZAP9m//9mzP9mmf 9m2v9mAP8z 
//822P82mf£822vBzM/BzAPBA//BA2PB8AmfBAZV8AM/BAAMZ//82/2M2/m02/ 
Zs2/M8z/AM2M/8zMmczMZ5s2MMBzMAMyZ / ByZzAAAAAAAAAAAAAAAACWAAAAA 
KYaJ5sYoE9IzYonrweGZK4CA4YUADRwWHyCVZZKWAJ4a0wwkY7TEW11BJ9A0X 
Yf0AdABnPVGJ11plvaX11/wEAQA7AAIMAPAAAAAAAGMAAAAAAA== 


Existe cierta confusión entre las variables de subprocedimientos 
y funciones y las variables al nivel de script. ¿Se puede dar una 
explicación un poco más detallada? 


Una variable de un subprocedimiento o función tiene un tiempo de vida limi- 
tado. VBScript la crea mientras procesa el código del subprocedimiento o 
función pero después la elimina cuando el subprocedimiento o función fina- 
liza su ejecución. No se puede ver la variable después de la finalización del 
procedimiento, y el valor de la variable desaparece. (De ahí su denominación 
de variables locales.) 

Una variable al nivel de script, por otro lado, es aquella que se utiliza 
(supuestamente después de una sentencia Dim) fuera de cualquier subproce- 
dimiento o función. Dichas variables se pueden ver en cualquier lugar de la 
página. (Por este motivo a menudo se les denomina variables globales.) De- 
bido a que pueden verse en cualquier parte, los cambios que se le hagan en 
cualquier parte persisten. Pueden resultar útiles, pero a menudo originan errores 
debidos a un uso inapropiado. 


Es necesario saber cuántas veces se utiliza una función 
o subprocedimiento (tal como un contador de un botón). 
¿Cómo puede hacerse esto? 


En VBScript, la única forma de hacerlo es mediante una variable al nivel de 
script. 


¿Se puede tener una variable local (una variable de subprocedimiento 
o función) con el mismo nombre que una variable al nivel de seript? 


Sí, pero no es una buena práctica. La variable local oculta (ensombrece) a 
la variable al nivel de script de forma que no puede verse el valor de esta 
última. 


¿Se puede incluir más de una biblioteca de subprocedimientos 
y funciones en un script? 


Sí, basta con indicar la localización de cada una de ellas en líneas separadas 
como se muestra a continuación: 


<SCRIPT LANGUAGE=VBScript SRC=LocalizacionYNombreDeArchivol> 
</SCRIPT> 
<SCRIPT LANGUAGE=VBScript SRC= LocalizacionYNombreDeArchivo2> 
</SCRIPT> 


16. 
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Existe cierta confusión con la estructura de una página VBScript. 
Están las funciones de apoyo que se crean, los procedimientos 

que se escriben para gestionar los eventos de controles ActiveX, etc. 
¿Cuál es la estructura necesaria para situar este tipo 

de procedimientos de forma apropiada en todas las páginas? 


Hablar de «todas» siempre resulta difícil, pero he aquí una estructura: 


<HTML> 

<HEAD> 

<TITLE>Título de la página> 

<SCRIPT>Etiquetas con nombres de archivo .vbs con 
procedimientos y funciones de utilidad ya escritos</SCRIPT> 


<SCRIPT>Etiqueta de comienzo del script 
Sentencias Dim para variables al nivel de script 


Sentencias para variables al nivel de script 
Sentencias a ejecutar por VBScript de forma independiente de 
cualquier evento. 


Procedimientos de evento y funciones y subprocedimientos de 
apoyo 
</SCRIPT>Final del script 


</HEAD> 

<BODY>Comienzo del código HTML 

HTML para la página Web 

<OBJECT>Etiquetas para los controles ActiveX 
</BODY> 

</HTML> 


Indice 


&, 62, 119 

<> (símbolos menor y mayor), 18 

* (asterisco), 47, 76, 221 

\ (barra inversa; símbolo de división), 76 
/ (signo de intercalación), 76 

: (dos puntos), 58 

, (coma), 73 

/ (símbolo de división), 19, 76 

= (signo igual), 97 

! (exclamación), 28-29 

>= (símbolo de mayor o igual), 98 

> (símbolo de mayor), 98 

- (guión), 76, 246, 248 

<= (simbolo de menor o igual), 98 

< (simbolo de menor), 98 

— (símbolo de continuación de línea), 57-58 
— (signo menos), 76 

# (signo de número), 27, 65, 148 

() (paréntesis), 72-73, 77-78, 103, 111, 163 
+ (signo más), 50, 51, 76, 207 

“ (comillas), 27, 30, 57, 64, 71 

* (comilla simple), 58-59 

[ ] (corchetes), 72 

— (subrayado), 57 


abreviaturas de teclado 
Ctrl-Alt-Del, 92, 97, 100 
Ctrl-Shift-F8, 197 
Ctrl-Shift-F9, 198 


FS, 198 
F9, 198 
Shift-F8, 196 
Abs, función, 150-151 
activación de puntos de ruptura, 198 
ActiveX Control Pad, 33-34 
asignación de valores a propiedades, 36-39 
asignación de valores a propiedades, efectos en 
HTML, 41-42 
cómo insertar controles ActiveX, 33-36 
editores de texto frente a, 33-34 
propiedades de los botones de órdenes, 39-41 
script de ejemplo, 59-62 
Script Wizard, 49-54, 207 
AddItem, método, 93 
alineación 
cabecera, 25 
párrafo, 23-24 
texto, 48 
ámbito, variable, 68-70, 276-277 
And, operador, 104-107 
análisis de cadenas de caracteres, 128, 134-135 
applets, Java, 12 
appVersion, propiedad, 213 
archivos 
HTML, 17-19 
procedimientos reutilizables en, 177, 276 
Array, función, 133 
arrays, 128-136 
análisis y construcción de textos con, 128, 134-136 
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arrays (cont.) 
conversión de variables a, 133 
dinámicos, 131-138 
en procedimientos, 167-170 
estáticos, 131 
filtrado, 136 
locales, 132 
multidimensionales, 132-133 
validación de entradas, 169 
asterisco (*), 47, 76, 221 
Atn, función, 151 
atributo ALIGN, 23, 25 
atributos 
BACKGROUND, 21-22 
ID, 240 
LINK TARGET, 224 
NAME, 27-28, 228-229 
PARAM NAME, 42 
STYLE, 244 
VALUE, 42, 228-229 
Autosize, propiedad, 39 
AutoTab, propiedad, 47 
avance de línea, 74 


<B> y </B>, etiquetas, 18, 22-25 
Backcolor, propiedad, 37 
BACKGROUND, atributo, 21-22 
Backstyle, propiedad, 39 
barra de división (/), 19 
barra de estado, 224 
barra inversa (1), 76 
bibliotecas, procedimiento, 276 
bloque If-Then-Else, sentencia, 107-110 
<BODY> y </BODY>, etiquetas, 20-22 
BorderStyle, propiedad, 46 
botones 
constantes incorporadas, 110-112 
control de botón de opción intrínseco, 229-231 
control de botón intrínseco, 228 
elípticos, 38-39 
órdenes (véase botones de órdenes) 
botones de órdenes 
asignación de valores a propiedades, 36-39 
efectos en HTML de la asignación de valores a 
propiedades, 41-42 
inserción, 35-40 
propiedades útiles, 39-41 


botón de opción, controles intrínsecos, 229-231 
botón elíptico, 38-39 
<BR>, etiqueta, 19, 21 
bucles determinados. Véase bucles For Each-Next; 
bucles For-Next 
bucles For-Next anidados, 95-96 
bucles For-Next, 88-96 
anidados, 95-96 
como determinados, 88-90 
ejemplo de calculadora de jubilaciones, 90-92 
ejemplo de calculadora de tablas de hipotecas, 
93-95 
errores, 92 
incremento, 93-95 
salida de, 174 
bucles indeterminados. Véase Do, bucles 
bucles infinitos, 92, 97, 100 
Byte, tipo de dato, 79 
ByVal, palabra clave, 167 
búsqueda, funciones, 170-172 
búsquedas binarias, 171 


cadena de caracteres vacía, 71 
calculadora de notas, ejemplo de script, 188-196 
Call, palabra clave, 163 
CancelBubble, propiedad, 260 
Caption, propiedad, 37, 46 
captura de errores, 199-201 
caracteres. Véase también cadenas de caracteres; 
texto 
ANSI, 74, 98 
contraseña, 47 
de control, 74 
en mayúsculas o minúsculas, 19, 63, 120-121, 
125-126, 253 
espacio, 21, 57, 121-123, 154-156 
carácter de continuación de línea (_), 57 
casos de frontera, pruebas, 181 
CD, que se acompaña 
ActiveX Control Pad, 33 
controles ActiveX, 10 
documentación VBScript, 70-73, 200 
Internet Client SDK, 205 
Microsoft Script Debugger, 185 
Visual Basic Control Creation Edition, 10 
Cdate, función, 214 
CENTER, atributo, 23-24 


certificado de identificación, 11-12 
certificados, 11-12 
certificados authenticode, 11-13 
Change, evento, 48 
Chr, función, 74 
Clearinterval, método, 212 
ClearTimeout, método, 212 
Click, evento, 45, 48 
CLSID (identificadores de clase), 33 
CodeBase, propiedad, 39 
codificación hexadecimal del color, 214-215 
colecciones, 216-219 
ColorDepth, propiedad, 208 
colores 
constantes, 75 
document, objeto, 213-215 
fondo, de los botones, 37-39 
screen, objeto, 207 
coma (,), 73 
comilla, simple (*), 58-59 
comillas (** ”), 27, 30, 57, 64, 71 
Command, ventana de Script Debugger, 193-194 
comparación de cadenas de caracteres, 121 
computadoras cliente, 3 
computadoras servidoras, 3 
configuración del nivel de seguridad, 14 
Const, palabra clave, 75 
constantes, 74-75 
incorporadas, 74-75, 110-112, 125, 139-140 
control de casilla de verificación intrínseco, 229- 
230 
controles ActiveX 
botones de órdenes (véase botones de órdenes) 
Control Pad, 34-35 (véase también ActiveX 
Control Pad) 
cuadros de diálogo y etiquetas, 46-48 
eventos y Script Wizard, 49-50 
formularios y, 234 
inserción con editores de texto, 33-34 
inserción de múltiples, 42 
procedimientos de manejo de eventos, 42-45 
programación de componentes y, 9 
propiedades, 34, 39 
seguridad, 11-12 
VBScript y, 10 
controles de botón intrínsecos, 228 
controles de libre distribución, 10 
controles de texto intrínsecos, 228-229 
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controles HTML intrínsecos, 226-233 
control de botón, 228 
control de selección, 231-233 
controles de texto, 228-229 
cuadros de verificación y botones de opción, 
229-231 
formularios y, 234 
tipos de, 226-227 
controles libres, 10 
conversiones de tipo, 66, 78-79, 137, 147 
conversiones de tipos de datos, 66, 78-79, 137, 147 
conversión 
de variables a arrays, 133 
tipo, 66, 78-79, 137, 147 
cookieEnabled, propiedad, 213 
cookies, 205, 236-238 
corchetes ([ ]), 72 
Cos, función, 151 
creación de tabla, ejemplo de subprocedimiento, 
163-164 
CSng, función, 65 
CStr, función, 147 
Ctrl-Alt-Del, combinación de teclas, 92, 97, 100 
Ctrl-Shift-F8, combinación de teclas, 196 
Ctrl-Shift-F9, combinación de teclas, 198 
cuadros de entrada, 29-31, 70-73 
cuadros de listas 
arrays y, 128-130, 133, 136 
script de ejemplo de tablas de hipotecas, 93-95 
cuadros de mensaje, 28-30, 110-111, 182, 184 
cuadros de texto, 46-48 
código fuente HTML (lenguaje de generación de 
documentos hipertexto), 17-28 
controles (véase controles HTML intrínsecos) 
dinámico (véase HTML dinámico) 
efectos en, de la asignación de valores a 
propiedades, 41-42 
estructura (véase estructura de fuente HTML) 
etiquetas, 18, 21-28 (véase también etiquetas, 
HTML) 
formularios, 233-236 
scripts CGI y, 4-7 
VBScript y, 17 (véase también VBScript) 
visualización y edición, 17-19 


Date, función, 147 
DateSerial, función, 148 
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DbIClick, evento, 48 
depuración, 185-199. Véase también errores; 
detección de errores; prueba 
aislamiento de errores lógicos, 184-185 
Command, ventana, 193-194 
números aleatorios, 145 
proceso de pruebas, 181-185, 189-191 
Script Debugger y, 185-188, 196-199 
sesión de ejemplo, 188-196 
Step, comandos, 194-196 
Stop, sentencia, 191-193 
tareas, 185 
tipos de errores, 179-181 
Dim, palabra clave, 67-70, 130 
diseño 
errores y diseño proactivo, 66, 83, 181-185 
modularización, 153, 177, 182 
reutilización (véase reutilización) 
validación de entradas, 83, 99, 110, 158 
Do, bucles, 96-105 
combinación de sentencias If-Then-Else con, 
112-113 
Do-Until, bucles, 97 
Do-While, bucles, 103-104 
errores, 97, 100-101 
operadores lógicos, 104-105 
operadores relacionales, 97-100 
pruebas, al principio frente al final, 101-103 
Do-Until, bucles, 97. Véase también Do, bucles 
Do-While, bucles, 103-104. Véase también 
Do, bucles 
Document, objeto, 206, 213-219 
colecciones, 216-219 
colección de enlaces, 216-219 
Cookie, propiedad,236-238 
iteración de colecciones, 219 
marcos, 220-226 
métodos y propiedades, 214-215 
Write, método, 31-32, 56, 275 
Document. Write, orden, 31-32, 56, 275 
documentación, VBScript, 70-73, 200, 205 
dos puntos (:), 58 
Double, tipo de datos, 65 


elementos, 252 
fuente, 254-255 


eliminación de espacios, ejemplo de script, 154-156 


Enabled, propiedad, 39-40 

enlaces, 26-28 
colección, 216-219 

entero, tipo de dato, 65 

Eaqv, operador, 107 

Err, objeto, 200-201 

erratas, 45 

error por uno, 92 

errores, Véase también depuración; pruebas 
captura, 199-201 
control ActiveX, 12 
diseño proactivo y, 66, 83, 181-185 
Do, bucles, 97, 100-101 
documentación de, 200 
Err, objeto, 200-201 
For-Next, bucles, 93 
lógica, 180-181, 184-185 
palabras reservadas y, 63-64 
sintaxis, 179-180 
tipado, 45 


validación de entradas para evitar, 83, 99, 110, 


158, 169 
variables no declaradas, 67, 189 
escalado, número aleatorios y, 142-143 
espacio en blanco, 21, 57 
espacios, 21, 57, 121-123, 154-157 
estructura de fuente HTML 
procedimiento de función, 155, 276-277 
procedimiento de manejo de eventos, 44-45 
página Web, 19-21, 28, 277 
etiquetas, 21-22, 46-48 
<A> y </A>, 26-27 
anidadas, 23 
ancla, 26-27, 224 
atributos, 21 (véase también atributos) 
comentario, 28 
de comentarios, 28 
de niveles de cabecera, 25-26 
de párrafos y texto, 22-25 
etiquetas, HTML, 18 
anidadas, 23 
nivel de cabecera, 25-26 
objeto, 36 
párrafos y texto, 22-25 
secciones, 19 
eventos, 252-253 
burbuja de eventos y cancelación, 258-260 
cuadro de texto, 48 


eventos (cont.) 
de teclado, 48, 252, 255-257 
enlaces, 224 
formularios, 234-235 
fuentes de eventos, 254-255 
HTML dinámico, 240, 252-253 
manejo, 56, 253, 255 (véase también 
procedimientos de manejo de eventos) 
objetos, 206 
ratón, 252, 257-258 
Script Wizard y, 49-50 
teclado, 252, 255-257 
ventana, objeto, 50-51, 207-208 
Window.Event, objeto, 254-260 
exclamación (!), 28 
Exit For, sentencia, 174 
Exit Function, sentencia, 158-160 
Exit Sub, sentencia, 129, 162 
Exp, función, 151 
exploradores. Véase también Internet Explorer 
extensiones, 7 
soporte para programadores, 37 
exponenciación, 76 
expresiones numéricas, 76 
extensiones de archivo htm y html, 18 


FS, tecla, 198 
F9, tecla, 198 
False, constante, 127 
fechas 
constantes, 75 
cookie, expiración, 237 
formatos, 136, 139-140 
funciones, 147-149 
operaciones aritméticas, 76-77 
tipo de datos, 65-66 
validación de entradas, 110 
Filter, función, 136 
Fix, función, 143 
Font, propiedad, 46 
font-family, propiedad, 246 
font-size, propiedad, 246-247 
font-style, propiedad, 246 
For Each-Next, bucles, 219 
<FORM> y </FORM>, etiquetas, 233 
FormatCurrency, función, 137-139 
FormatDateTime, función, 137-139 
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FormatNumber, función, 137-138 
formato 
de tantos por ciento, 136-138 
moneda, 138-139 
números, 76, 136-140 
texto, 24 
FormatPercent, función, 137, 139 
formularios, 233-236 
<FRAMESET> y </FRAMESET>, etiquetas, 220 
FrontPage. Véase Microsoft Frontpage 97; 
Microsoft FrontPage 98; Microsoft FrontPage 
Express 
fuente, elementos/objetos, 254-255 
fuente, estructura de. Véase estructura de fuente 
HTML 
funciones numéricas, 149-151 
funciones trigonométricas, 151 
funciones incorporadas 
análisis de cadenas de caracteres, 122-128, 
134-135 
array, 132-134 
carácter, 74 
conversión, 65, 78-79, 137, 147 
fecha y hora, 76-77, 147-149, 214 
formateo, 136-140 
manejo de cadenas de caracteres, 120-122 
numéricas, 143, 146-147, 149-151 
números aleatorios, 140-145 
validación booleana de datos, 110 
validación de entradas, 110, 169 
Function, palabra clave, 155 


grados, 151 
GUID (identificadores únicos globalmente), 34 
guión (-), 76, 246, 248 


<HEAD> y </HEAD>, etiquetas, 19, 25 
Height, propiedad, 36, 40 
hiperenlaces, 4. Véase también enlaces 
hipertexto, 4, 26. Véase también enlaces 
history, objeto, 212-213 
hojas de estilo, 239, 246 
hora 

formatos, 137, 139-140 

funciones, 147-149 

operaciones aritméticas, 76-77 

tipo de dato, 65 
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HREF, atributo, 26 
HTML dinámico, 239-264 
asignación de propiedades, 59-63 
Document, Write, orden, 31-33 
eventos, 252-260 
posicionamiento de objetos, 36, 249-252, 275 
procedimientos de manejo de eventos, 240-244 
Scriptlets, 261-264 
Style, propiedad, 244-249 
<HTML> y </HTML>, etiquetas, 19 


<I> y SIL, etiquetas, 22-25 
iconos 
cuadro de mensaje, 111 
ratón, 40 
1D, atributo, 240 
1D, propiedad, 40, 43 
identificadores de clase (CLSID), 33-34 
If-Then-Else, sentencia, 105-113, 115 
bloque, 108-109 
If-Then-Else, sentencia, continuación 
cláusula Else-1f, 115-117 
combinación de bucles con, 112-113 
cuadros de mensaje y, 110-112 
diagrama de flujo, 108 
operadores lógicos y, 106 
sentencia If-Then, 105-106 
validación de entradas y, 110 
igualdad, 97, 101 
<IMG>, etiqueta, 250, 252 
imagen sobre imagen, ejemplo de script, 216-219 
imágenes, 6, 40, 239, 250, 275 
índice, 130 
inicialización, variable, 68 
InnerText, propiedad, 241-244 
<INPUT>, etiqueta, 229-231 
InputBox, orden, 30-31, 70-73 
InStr y InStrRev, funciones, 126-128 
Int, función, 146-147 
intercambio, variable, 68 
Internet Explorer 
FrontPage Express y, 17 
opciones de seguridad, 13-16 
Script Debugger y, 186-188, 192 
tecnología Authenticode, 11 
VBScript y, 8 (véase también VBScript) 
versiones, 36, 213, 226-227 


IsArray, función, 169 
IsNumeric, función, 110 
iterating collections, 219 
itálica, 22-25 


Java, 8, 12,274 
JavaScript, 253, 274 
Join, función, 134 


KeyPress, evento, 48 


Lcase, función, 120 

LEFT, atributo, 23-24 

Left, función, 122-124 

Len, función, 122-124 

List, propiedad, 129, 133, 136 

listas, búsquedas y ordenaciones, 170-177 
ListCount, propiedad, 129 

literales, 56 

llamadas a procedimientos, 84, 162-163 
location, objeto, 206 

Locked, propiedad, 48, 90 

Log, función, 151 

logaritmos, 151 

Long, tipo de datos, 65 

IsDate, función, 110 

Ltrim, bajo, 121-122 


manejadores de tamaño, 36 
marcos, 220-226 
cuestiones de seguridad, 223 
ejemplo de tabla de contenidos, 224-226 
modelo de objetos y, 220-222 
programación con, 222-226 
margin-left, margin-right y margin-top, 
propiedades, 248 
MaxLength, propiedad, 47 
mensajes, error. Véase errores 
Microsoft FrontPage 97, 33 
Microsoft FrontPage 98, 17, 21, 33, 49 
Microsoft FrontPage Express, 17, 21, 33 
Microsoft Visual Basic 
programación de componentes, 9 
VBScript como un subconjunto de, 10 
VBScript frente a, 265-267 


Microsoft Visual Basic para Aplicaciones 
VBScript como un subconjunto de, 273 
VBScript frente a, 10, 265-267 

Microsoft Visual Basic Scripting Edition. Véase 

VBScript 

Mid, función, 122-124 

Mod, operador, 76 

modelo de caja de arena, 12-13 

modelo de objetos, 205-238 
controles intrínsecos, 226-233 
cookies, 205, 236-238 
document, objeto, 213-219 (véase también 

document, objeto) 
formularios, 233-236 
marcos, 220-226 
modelo de manejo de eventos, 253 
window, objeto, 207-213 (véase también 
window, objeto) 

modularización, 153, 177, 182 

Moneda, tipo de dato, 78 

Mouselcon, propiedad, 40 

MousePointer, propiedad, 40 

MsgBox, orden, 28-30, 110-112, 182 

Msscrdbg.exe, archivo, 186 

MultiLine, propiedad, 47 

multiplicación, 76 

métodos 
controles intrínsecos, 228-233 
document, objeto, 31-33, 56, 213, 275 
history, objeto, 212 
objeto, 206 
VBScript, 56 
window, objeto, 208-212 


NAME, atributo, 27, 228-229 
navigate, método, 210 
navigator, objeto, 213 
negritas, 18, 22-25 
Nelson, Ted, 26 
nivel de seguridad alto, 14-15 
nivel de seguridad bajo, 14-15 
nivel de seguridad medio, 14-15 
nombres 
archivos HTML, 18 
colecciones, 216 
constantes, 74-75 
evento, 253 
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ID de controles ActiveX, 40 
lista, 130 
partes de páginas Web, 27 
propiedades del HTML dinámico, 246, 248 
subprocedimientos, 162 
variable, 63-64, 66 
variable, y ámbito, 68-70 
variables globales, 70 
Not, operador, 63, 104-107 
notación científica, 78 
Now, función, 76, 147 
números aleatorios 
generación, 140-145 
verificación, 181 
números decimales, aproximaciones para, 95, 101 
números semilla, 145 
números, 75-79 
aleatorios, 140-145, 181 
aproximaciones para decimales, 95, 101 
conversiones de tipo, 65, 78-79, 137, 147 
embebidos, 157 
formateo, 76, 136-140 
funciones, 149-151 
notación científica, 78 
operaciones, 76-78 
tipos de datos, 64-66 
validación de entradas, 110, 158 


<OBJECT> y </OBJECT>, etiquetas, 36, 41, 261 
objeto padre, 206, 225 
objetos 
asociación de procedimientos de eventos con, 
224-225 
document (véase document, documento) 
Err, 200-201 
fuente de eventos, 254-255 
history, 212-213 
location, 206 
modelo (véase modelo de objetos) 
navigator, 213 
padre, 206, 225 
posicionamiento, 36, 249-252, 275 
referencias, 217, 223, 255 
screen, 207 
VBScript y, 11, 275 
window (véase window, objeto) 
Window.Event (véase Window.Event, objeto) 
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OffsetWidth, propiedad, 251, 263-264 
On Error, sentencia, 199-200 
onClick, evento, 224 
onKeypress, evento, 256-257 
onLoad, evento, 50 
onMousedown, evento, 224 
onMouseover, evento, 224-225, 240 
onSubmit, evento, 234 
onUnload, evento, 50 
Open, método, 209-210 
operadores 
aritméticos, 76-78 
lógicos, 63, 104-107 
precedencia, 77-78, 103, 106 
relacionales, 97-100 
Option Explicit, sentencia, 67, 261 
Or, operador, 104-107 
ordenación, procedimientos, 170, 173-177 
por inserción, 173-174 
por ondas, 173, 175 
Shell, 175-178 
OuterText, propiedad, 243 


<P> y </P>, etiquetas, 22-25 
palabras clave reservadas, 56, 64, 269-272 
papel tapiz, 39 
PARAM NAME, atributo, 42 
parámetro delimitador, 135 
parámetro formal, 155-156 
parámetros 
formales, 156-157 
InputBox, función, 71-73 
múltiple, 160-162 
paso, 164-167 
procedimiento de función, 156-157, 160-162 
procedimientos de manejo de eventos, 54 
procedimientos, 154 
paréntesis (), 72, 77-78, 103, 111, 163 
paso de parámetros, 164-167 
password, control, 227 
PasswordChar, propiedad, 47 
Picture, propiedad, 40 
PicturePosition, propiedad, 40 
posicionamiento 
absoluto, 249 
de objetos, 36, 249-252, 275 
relativo, 249 


<PRE> y </PRE>, etiquetas, 24-25 
precedencia, operador, 77-78, 103, 106 
prefijos, nombre de variable, 66 
preguntas frecuentes, 273-277 
procedimientos 

arrays en, 167-170 

búsqueda y ordenación, 170-177 

diseño de script y, 177-178 

funciones frente a subprocedimientos, 154 

funciones, 154-162 

paso de parámetros, 164-167 (véase también 

parámetros) 

pruebas, 181-185 

reutilizables, en bibliotecas, 177, 276 

subprocedimientos, 162-164 

ventajas, 153-154 
procedimientos de función, 153-162 

calculadora de tasas postales, ejemplo, 157-158 

cambio de tamaño, ejemplo, 249 

escribir, 155 

estructura, 155 

parámetros, 156-157, 160-162 

salida de, 158-160 

subprocedimentos frente a, 153-154 (véase 

también subprocedimientos) 
procedimientos de manejo de eventos, 43-45, 
240-244. Véase también eventos 

ámbito de variables y, 68-70 

asociación de objetos con, 224-225 

escritura, 43-45 

generación con Script Wizard, 51-54 

InnerText, propiedad, 241-244 

llamada, 84, 162-163 

marco, 44-45 

modelo de Internet Explorer, 254 

OuterText, propiedad, 243 

parámetros, 54 

salida, 129 

Style, propiedad, 244-249 
procesamiento seguro, 11 
programación de componentes, 9 
programas. Véase scripts; scripts, ejemplo 
propiedades 

alinemiento de texto, 248 

asignación de valores, 59-62 

Boolean, 62-63 

botón de orden, 39-41 

control ActiveX, 34, 36-39 


propiedades (cont.) 
cookie, 236-238 
cuadro de texto y etiqueta, 46-48 
document, objeto, 213-215 
estilo, 245-249 
history, objeto, 212 
HTML, efectos de la asignación de valores, 
41-42 
navigator, objeto, 213 
objeto, 206 
posicionamiento, 250 
screen, objeto, 207 
texto, 241-244 
Window.Event, objeto, 255-257 
prueba. Véase también depuración 
bucles Do, 101-103 
errores lógicos, 180-181 
scripts, 189-191 
tolerancia, 151 
pruebas de tolerancia, 151 
Public_, palabra clave, 261-262 
puntos de ruptura, 185, 191, 196-198 
puntos, 24, 221, 246 
página de servidor activa, 234 
páginas Web. Véase también sitios Web 
activación, 3 
creación (véase scripts; VBScript) 
código fuente HTML, 17-19 (véase también 
código fuente HTML) 
dinámicas, 31-33 (véase también HTML 
dinámico) 
estructura de fuente HTML, 19-21, 28, 277 
historia de, 3-7 
tecnología actual, 7-9 
URL (localizador uniforme de recursos), 22 


radianes, 151 
Randomize, sentencia, 140-145 
ratón 
eventos, 44, 48, 224, 240-241, 252, 257-258 
(véase también eventos) 
propiedades, 40 
ReDim y ReDim Preserve, sentencias, 131-132 
referencia, paso de parámetros por, 164-167 
referencias a objetos, 217, 255 
Rem, palabra clave, 58 
Replace, función, 124-125 
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resolución de pantalla, 24-25, 207-208 

resta, 76 

retornos de carro, 19, 21, 74-75 

reutilización 
procedimientos, 153-154, 177, 276 
programación de componentes de Visual Basic, 

9 (véase también controles ActiveX) 

Scriptlets, 261-264 

RichTextBox, controles, 46 

RIGHT, atributo, 23 

Right, función, 122-124 

Rnd, función, 140-145, 161 

Round, función, 150 

Rtrim, función, 121-122 


screen, objeto, 207 
<SCRIPT> y </SCRIPT>, etiquetas, 28-29, 155, 177 
script de ejemplo 
calculadora de hipotecas, 79-84, 93-95, 136-140 
calculadora de jubilaciones, 90-92, 99-100 
calculadora de tasas postales, 146-147, 157-158 
cuadro de entrada, 29-31 
cuadro de mensaje, 28-29 
un bombo de lotería, 140-145 
Script Debugger, 185 
Command, ventana, 193-194 
inicio, 186-188 
utilización, 196-199 
Script Wizard, 49-54, 207 
Scriptlet ejemplo de animación, 261-264 
Scriptlets, 261-264 
scripts CGI (Common Gateway Interface, interfaz 
de pasarela común), 4-7 
scripts de interfaz de pasarela común (CGI), 4-7 
scripts, ejemplo 
asignación de valores a propiedades, 59-62 
bombo de lotería, 140-145 
calculadora de hipotecas, 79-84, 93-95, 137-140 
calculadora de jubilaciones, 90-92, 99-100 
calculadora de notas, 188-196 
calculadora de tasas postales, 146-147, 157-158 
cambio de tamaño, función, 249 
creación de tablas, subprocedimiento, 163-164 
cuadro de mensaje, 28-29 
cuadros de entrada, 29-31 
eliminación de espacios, función, 154-156 
imagen sobre imagen, 216-219 
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scripts, ejemplo (cont.) 
procedimientos de manejo de eventos, y Script 
Wizard, 51-54 
Scriptlet de animación, 261-264 
tabla de contenidos, 224-226 
scripts. Véase también VBScript 
activación, 14 
anatomía, 55-63 
asignación de valores a propiedades, 59-62 
(véase también propiedades) 


bucles (véase Do bucles; bucles For Each-Next; 


bucles For-Next) 

caracteres ANSI, 74 (véase también caracteres) 

código fuente (véase código fuente HTML 
(lenguaje de generación de documentos 
hipertexto) 

CGI, 4-7 

constantes, 74-75 (véase también constantes, 
incorporadas) 

controles ActiveX (véase ActiveX Control Pad; 
controles ActiveX) 

cuadros de entrada, 29-31, 70-74 

cuadros de mensaje, 28-30, 110-112, 182, 184 

cuadros de texto y etiquetas, 46-48 

depuración (véase depuración; errores; rastreo 
de errores; prueba) 

dinámicos, 31-33 (véase también HTML 
dinámico) 

diseño (véase diseño) 

ejemplo (véase scripts, ejemplo) 

embebidos, 7-8 

estáticos, 31 

estructura (véase estructura de fuente HTML) 

funciones (véase funciones, incorporadas) 

generación, con Script Wizard, 49-54 

números, 75-79 (véase también números) 

objetos, 11 (véase también objetos) 

procedimientos (véase procedimientos) 

procedimientos de manejo de eventos, 43-45 
(véase también procedimientos de manejo 
de eventos) 

Seriptlets, 261-264 

sentencias, 56-58 

sentencias condicionales (véase sentencia If- 
Then-Else; sentencia Select-Case) 

sentencias de comentarios, 58-59 

variables, 63-70 (véase también variables) 

ScrollBars, propiedad, 46-47 


seguridad 
alternativas a los certificados Authenticode, 
12-13 
controles VBScript y ActiveX, 11-13 
marcos, 223 
opciones de Internet Explorer, 13-16 
script CGI, 6 
selección, control intrínseco, 231-233 
<SELECT> y </SELECT>, etiquetas, 232 
sentencia Select-Case, 113-114 
sentencias, 56-58 
sentencias condicionales. Véase sentencia If-Then- 
Else; sentencia Select-Case 
sentencias de comentarios, 58-59 
sentencias de declaración 
ámbito y, 68-70 
array dinámico, 131-132 
array estático, 131-132 
variable, 66-68 
sentencias de observaciones, 58-59 
Set, palabra clave, 217, 223, 255 
Setinterval, método, 211 
SetTimeout, método, 210-211 
señales, 136 
Sgn, función, 150 
Shell, Donald, 175 
Shell, ordenación, 175-177 
Shift-F8, combinación de teclas, 196-197 
signo &, 62, 199 
signo de intercalación (^), 76 
signo de número (4), 27, 65-66 
signo igual (=), 97 
signo menos (~), 76 
signo más (+), 50-51, 76, 207 
simple precisión, tipo de dato, 65 
Sin, función, 151 
sitios Web. Véase también páginas Web 
controles ActiveX comerciales, 10 
Microsoft, 17, 264, 274 
Split, función, 134-135 
Sqr, función, 151 
Step Into, comando, 194-196 
Step Over y Step Out, comandos, 196 
Step, palabra clave, 93 
Stop, sentencia, 185-186, 191-193 
StrComp, función, 121 
String, función, 120 
STYLE, atributo, 244 


Style, propiedad, 244-249 
alineamiento de texto, propiedades, 248 
cambio de tamaño, función, 249 
fuentes, propiedades, 246-248 

Sub, palabra clave, 162 

subcadenas, 126-128 

subprocedimientos, 153-154, 162-164. Véase 

también procedimientos 

creación de tabla, ejemplo, 163-164 
escritura, 162-164 
frente a funciones, 153-154 
llamada, 162-163 

subrayado (_), 57 

suma, 76 

sustitutos para procedimientos, 182 

símbolos de división (/ y Y, 76 

símbolos mayor y menor (<>), 18 


tabla de contenidos, ejemplo de script, 224-226 
Tan, función, 151 
TARGET, atributo, 224 
temporizadores, 210-212 
Text, propiedad, 46 
text-align, propiedad, 248 
text-indent, propiedad, 248 
TextAlign, propiedad, 48 
textarea, control intrínseco, 229 
<TEXTAREA> y </TEXTAREA>, etiquetas, 229 
texto preformateado, 24 
texto, tipo de datos, 64-65 
texto. Véase también caracteres; textos 
atributos, 22-25 
controles ActiveX, 46-48 
controles intrinsecos, 228-229 
HTML dinámico, propiedades, 241-244 
preformateado, 24 
propiedades de alineación, 48, 248 
visibilidad, 245 
wordwrap, 41 
textos. Véase también caracteres; análisis de 
textos, 122-128 
análisis y creación, 134-135 
comparación, 121 
concatenación, 62, 120 
conversiones de tipo, 65, 78-79, 137, 147 
creación, 120 
eliminación de espacios, 122 
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en mayúsculas o minúsculas, 120-121, 125-126 
fecha y hora, 149 
filtrado, 136 
funciones, 120-122 
nulo, 71 
tipo de dato, 64-65 
Time, función, 147 
tipos de datos, 64-65 
<TITLE> y </TITLE>, etiquetas, 18 
Trim, función, 121-122 
True, constante, 127 


Ubound, función, 132 
Ucase, función, 120 
URL (localizador uniforme de recursos), 22 


validación de entradas, 99, 110, 158, 169 
valor, paso de parámetros por, 164-167 
VALUE, atributo, 42, 228, 229 
variables, 63-70 
al nivel de script, 69-70, 167, 176 
ámbito, 68-70, 276 
array (véase arrays) 
conversión, a arrays, 133 
cuadro de mensaje, 30 
declaración e inicialización, 66-68 
globales, 69-70, 167, 176 
intercambio, 68 
locales, 69, 276 
nombres, 63-64 
prefijos de nombres, 66 
tipos de datos, 64-65 
vbBinaryCompare y vbTextCompare, constantes, 
125-126 
VbCrLf, constante, 74-75 
vbs, extensión de archivo, 177 
VBScript 
caracteres ANSI, 74 
constantes incorporadas (véase constantes 
incorporadas) 
controles ActiveX y, 10-11, 33-34 (véase también 
ActiveX Control Pad; controles ActiveX) 
documentación, 71-73, 200, 205 
errores (véase depuración; errores) 
funciones incorporadas (véase funciones 
incorporadas) 
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VBScript (cont.) 

HTML y, 17 (véase también HTML dinámico; 
código fuente HTML (lenguaje de 
generación de documentos hipertexto)) 

Java y JavaScript frente a, 8, 274 

objetos, 11 (véase también objetos) 

palabras clave reservadas, 56, 63-64, 269-272 

preguntas frecuentes, 273-277 

propiedades, 59-62 (véase también propiedades) 

Script Wizard, 49-54 

scripts, 55-63 (véase también scripts; scripts, 
ejemplo) 

seguridad, 11-13 (véase también seguridad) 

uso de visualizadores externos, 274 

VBScript, continuación 

Visual Basic y Visual Basic para Aplicaciones 
frente a, 10, 265-267, 273 

VeriSign, 12 
zonas y, 15-16 
visibilidad, 245 
Visual Basic. Véase Microsoft Visual Basic; 
Microsoft Visual Basic para Aplicaciones; 
VBScript 


Width, propiedad, 36, 40 
window, objeto, 206-213 
document, objeto, 213, 219 


eventos, 49-51, 207-208 
history, objeto, 212-213 
métodos, 209-212 
navigator, objeto, 213 
Window.Event, objeto, 254-260 
burbuja de eventos y cancelación de eventos, 
258-260 
eventos de ratón, 257-258 
eventos de teclado 255-257 
sentencia Set y propiedad SrcElement, 255 
SrcElement, propiedad, 254-255 
WordWrap, propiedad, 41 
World Wide Web (WWW). Véase påginas Web; 
sitios Web 


Xor, operador, 107 


zona de Internet, 15 

zona de si en los que se confia, 15-16 
zona de sitios restringidos, 15 

Zona intranet local, 15 

zonas de contenido Web, 15-16 
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AprendaVisual Basic' O 
Script Ya Incluye CD-ROM 


El CD-ROM que acompaña 
al libro incluye multitud de 


Microsoft Visual Basic Script permite ejecutar siemplos de aplicaciones d 

ren 3 cript, además de una j 
programas dentro de páginas HTML mediante versión interactiva del libro, 
visualizadores compatibles con VBScript. Sus MS Internet Explorer 4.01, 
escasos requisitos de memoria y su eficiente MS ActiveX Control Pad, 
conjunto de funciones están diseñados para APEE m 
lograr el máximo rendimiento del potencial Creation Edition, Microsoft 
de Internet y del ancho de banda. Internet Client SDK 

y mucho más. ' 


APRENDA MICROSOFT VISUAL BASIC SCRIPT empieza enseñando los fundamentos —tales como el 
entorno, la sintaxis y las bases de la programación orientada a eventos. A continuación enseña 

funciones tales como la depuración y captura de errores, el modelo de objetos de Microsoft Internet 
Explorer y HTML dinámico. Este libro también incluye: 


e Scriptlets 
+ Utilización de controles ActiveX 
+ Seguridad 


La mejor forma de acceder al poderoso lenguaje script 
de Microsoft para Internet. 


¡Aprenda Microsoft” Visual Basic’ 
Script de forma rápida y fácil! 
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